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ABSTRACT 


Each  inventory  manager  at  the  Aviation  Supply  Office  Philadelphia,  PA  is  presently 
required  to  manage  approximately  700  line  items.  To  allow  the  inventory  manager  a 
more  efficient  method  of  reviewing  and  using  the  data  and  reports  from  the  Uniform 
Inventory  Control  Point  (UICP)  computer  system,  a  distributed  computer  system  is 
necessary'.  By  downloading  the  the  appropriate  inventory  data  from  UICP  to  a  local 
computer  system,  a  decision  support  system  (DSS)  can  be  be  implemented  using  existing 
off  the  shelf  hardware  and  software.  The  ability  to  replace  the  present  copious  paper 
reports  with  concise  computerized  information  and  import  that  data  into  electronic 
spreadsheets  for  further  analysis  can  greatly  improve  the  inventory  manager’s 
effectiveness.  To  this  end,  this  thesis  provides  inventory  managers  at  ASO  with  access 
to  the  following  functions: 

•  Interactive  access  to  the  main  UICP  database.' 

The  ability  to  use  UICP  data  with  a  decision  support  system’. 

?  •  A  user  interface  that  is  easy  to  understand  and  learn’, 

"  •  A  local  data  base  which  supports  working  group  requirements. 

•  Basic  office  automation. 

This  thesis  will  cover  the  selection  of  the  hardware  and  software,  data  identification 


and  management  and  DSS  development.  A  prototype  system  called  the  IM  Workstation 


w'as  developed  for  this  thesis  and  used  to  produce  the  thesis  document.  COBOL  and 

ALIS  ELF  macro  program  listings  are  provided.  M'C 
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I.  INTRODUCTION 


A.  BACKGROUND 

Each  inventory  manager  at  the  Aviation  Supply  Office,  Philadelphia,  PA  is 
presently  required  to  manage  approximately  700  line  items.  The  inventory  manager’s 
job  is  to  ensure  that  sufficient  consumable  and  repair  parts  are  available  in  the  Navy 
Supply  System  to  satisfy  requests  for  material  from  both  end  users  and  stock  points. 
The  present  management  system  they  use  is  management  by  exception,  which  is  aided  to 
a  great  extent  by  the  Uniform  Inventory  Control  Point  (UICP)  computer  system 
resident  on  an  IBM  3090  mainframe.  The  UICP  system  performs  various  automatic 
inventory  reviews,  manages  the  current  stock  status,  and  contains  various  technical  and 
supporting  data  needed  to  manage  and  procure  the  spare  parts.  UICP  produces  various 
formal  printed  reports.  These  reports  are  provided  to  the  inventory  manager  for  his 

or  her  review  and  as  a  trigger  to  perform  specific  actions  ^ . 

ASO  Inventory  Managers  have  access  to  the  UICP  database  via  IBM  3270  series 
terminals.  The  UICP  database  structure  contains  approximately  four  thousand  data 
elements  (DENS).  Thirty-nine  individual  data  retrieval  programs  are  available  to  the 
item  manager  under  the  A02  information  retrieval  application  [Ref.  1].  Appendix  A 
contains  a  complete  listing  of  all  the  A02  programs.  Each  program  acts  as  an 
independent  retrieval  application,  although  there  is  a  large  amount  of  data  element 


1  Validate  proposed  buy  quantities,  review  if  items  are  in  long  supply  • 
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redundancy  between  these  thirty-nine  programs.  For  example  DEN  C003  (Cognizance 
Symbol)  is  used  in  6  different  programs  (AS,  BK,  CD,  CH,  EF,  NA)2. 


The  usefulness  of  the  A02  programs  are  further  limited  by  the  cryptic  output  to 
IBM  3270  terminal  screen  displays  which  use  data  element  (DEN)  numbers  rather  then 
english  descriptions  of  the  data  fields.  Figure  1  shows  the  screen  display  from  a  typical 
A02  program.  For  example,  instead  of  showing  "Cognizance  Symbol"  or  the  commonly 


0SER 

ID: 

OZBGOPG 

PROGRAM  AS 

VERSION  BOO  OOTPOT 

88/08/03 

MASTER 

DATA  FILE  DATA 

17:16:28 

000971444 

RFI  ALL 

B45:  00000 

C3 

C3D 

C3A 

C42 

C3B 

B2  B1  All 

CNS  EDS 

1R 

M 

1095 

i  BX 

4N5XX  W -  42  91 

N  N 

AS: 

340 

A6 :  4 

B11A : 

9.36  B19:  6296  B21:  2602 

B74:  650.38 

A1 

A12 

A8B 

All  A 

A14  A25  B46A 

ASA 

A23  A3I 

O  H  DOE-IN 

D0B-OOT 

TOT  PR  REORDER  STPDT  RD  OBSV 

RD  FOR  BALCD 

SYS 

S 

18295 

0 

1111 

QQQ 

0 

0 

0 

40  0 

0 

1.717 

P31 

0 

0 

0 

0  0 

0 

0.247  87212 

2 

0 

0 

3  0 

0 

0.254  8818Z 

2 

0 

0 

5  0 

0 

0.000  8818Z 

0 

2 

0 

4  0 

0 

1.229  8816Z 

0 

0 

0 

0  0 

0 

1. 755  85144 

PF1«VALID 

KEYS 

PF19« 

PAGE  FORWARD  PF20*=PAGE  BACKWARD 

PRESS 

PF19 

TO  SEE 

ADDITIONAL  PAGES 

Figure  1  Example  of  an  A02  Application,  Display  Screen. 


“Two  letter  abbreviations  are  used  to  refer  to  the  A02  programs.  These  abbrevia¬ 
tions  refer  to  the  original  U1CP  COBAL  batch  retrieval  programs. 
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used  term  "COG”  on  the  display,  the  data  element  number  "C3"^  is  shown.  Further¬ 
more  there  is  no  way  for  an  item  manager  to  save  this  output  information  on-line  or 
to  move  it  to  other  computer  programs  (e.g.,  a  spreadsheet  or  database  type  program) 
for  analysis.  The  only  procedure  available  to  the  managers  is  to  press  the  print  screen 
button  on  the  IBM  3270  terminal  which  will  cause  an  image  of  the  screen  to  be  sent  to 
a  local  printer.  If  the  program  has  multiple  screens,  the  manager  has  to  print  each 
screen  individually.  A  problem  exists  for  the  managers  because  between  10  to  16  of 
them  share  a  single  printer,  and  the  print  screen  process  doesn’t  send  screen  images  to 
a  print  queue.  The  printed  output  from  the  various  managers  thus  becomes  intermixed, 
requiring  a  time  consuming  identification  and  hand  sorting  process  [Ref.  2]. 

The  formal  UICP  printed  reports  am  handled  by  the  inventory  manager  in  the 
method  show  n  in  Figure  2.  When  the  inventory  manager  receives  a  report  generated  by 
the  UICP  program,  he  or  she  needs  to  access  the  on-line  A02  program  to  retrieve 
various  management  information  which  isn’t  provided  by  the  UICP  report,  or  which 
the  manager  believes  have  to  have  aged  since  the  UICP  report  was  generated.  The  item 
manager  then  reviews  the  available  information  and  makes  his  or  her  decisions.  Since 
many  of  the  item  managers  decisions  are  based  upon  knowledge  gained  from  the  various 
senior  managers  who  trained  them,  there  is  a  lack  of  consistency  in  the  decision  making 
process  applied  to  the  UICP  reports.  Additionally  the  present  manual  methods  make  it 
extremely  difficult  for  the  item  manager’s  superiors  to  ensure  that  the  decisions  are  in 
accordance  with  the  inventory  control  point’s  policy. 

3  C3  is  used  instead  of  the  actual  data  element  name  C003 


Figure  2  Flow  of  UICP  Printed  Reports 


After  the  item  manager’s  decisions  are  made,  the  printed  reports  are  annotated  to 


reflect  their  decisions  and  then  forwarded  to  a  data  entry  clerk  who  enters  the  data 
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into  the  UICP  program.  The  system  is  updated  and  the  management  cycle  is  started 
again  when  new  exception  repons  are  generated. 

As  previously  mentioned,  the  inventory  manager  presently  does  not  have  access  to 
a  computerized  decision  support  system  (DSS).  The  inventory  manager  can  access  the 
UICP  database  outside  the  A02  programs  and  perform  ad  hoc  queries  using  a  database 
package  called  FOCUS,  but  the  process  is  extremely  slow  and  requires  computer 
programming  skills.  A  paper  report  can  be  requested,  but  the  report  data  can  not  be 
imported  into  a  DSS  for  analysis.  A  DSS  could  be  used  to  evaluate  the  report’s  data 
or  ensure  the  manager's  actions  are  consistent  and  conform  to  standard  operating 
procedures. 

Russell  L.  Ackoff  of  the  University  of  Pennsylvania,  in  his  article,  "Management 
Misinformation  Systems,"  [Ref.  3:p.  147]  stated  "My  experience  indicated  that  most 
managers  receive  much  more  data  (if  not  information)  than  they  can  possible  absorb 
even  if  they  spend  all  of  their  time  trying  to  do  so.  ...  I  have  seen  daily  stock  status 
reports  that  consists  of  approximately  six  hundred  pages  of  computer  printout.  The 
report  is  circulated  daily  across  managers’  desks."  This  is  an  almost  exact  corollary  to 
ASO's  inventory  managers’  situation.  They  have  access  to  over  4,000  data  elements 
via  thirty-nine  applications,  plus  several  immense  printed  reports.  The  reports  contain 
a  large  amount  of  the  data  available  from  the  on-line  applications.  "Unless  the 
information  overload  to  which  managers  are  subjected  is  reduced,  any  additional 
information  made  available  by  an  MIS  cannot  be  expected  to  be  used  effectively."  [Ref. 
3:p.  148],  In  the  case  of  the  inventory  managers,  the  volume  of  available  information 
and  the  difficulty  of  extracting  and  working  with  the  data  can  be  counter  productive. 


B.  THESIS  OBJECTIVE 

To  allow  the  inventory  manager  a  more  efficient  method  of  reviewing  and  using 
the  data  and  reports  from  UICP,  a  distributed  computer  system  is  necessary.  By 
downloading  the  appropriate  inventory  data  from  the  main  database  to  a  local 
computer  system,  a  decision  support  system  can  be  implemented  using  existing  off  the 
shelf  hardware  and  software  to  assist  the  inventory  manager.  The  ability  to  replace  the 
present  copious  paper  reports  with  concise  computerized  information  and  import  that 
data  into  electronic  spreadsheets  for  further  analysis  can  greatly  improve  the  inventor}’ 
manager's  effectiveness.  To  this  end,  this  thesis  provides  a  limited  number  of  inventory 
managers  at  ASO  with  access  to  the  follow-ing  functions: 

•  Interactive  access  to  the  main  UICP  database. 

•  The  ability  to  use  UICP  data  with  a  decision  support  system. 

•  A  user  interface  that  is  easy  to  understand  and  learn. 

•  A  local  data  base  which  supports  working  group  requirements. 

•  Basic  office  automation. 

•  Action  tracking  and  management  information. 

•  Electronic  mail. 

A  prototype  system  called  the  "IM  Workstation"  was  developed  for  this  thesis. 

C.  APPROACH 

To  accomplish  the  thesis  objective  described  above,  work  was  done  in  the  areas 
listed  below.  Each  of  these  areas  will  be  briefly  described  in  the  remainder  of  this 
chapter,  and  more  thoroughly  covered  in  subsequent  chapters. 

•  Hardware  selection 

•  Software  selection 

•  Data  identification  and  management 

•  Program  and  decision  support  system  development 
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•  System  integration 

•  On  site  testing 

For  each  area  I  reviewed  the  present  environment  and  tried  to  find  the  best 
combination  of  hardware  and  software  that  would  support  the  desired  functions.  To 
understand  the  present  environment  I  traveled  extensively  to  the  Aviation  Supply  Office 
(ASO)  in  Philadelphia,  PA  and  worked  with  various  ASO  personnel.  The  result  of  these 
trips  was  an  understanding  of  the  inventory  manager’s  present  working  environment. 
In  order  to  design  a  decision  support  system  which  would  meet  the  needs  of  the  item 
managers  at  ASO,  I  had  to  learn  about  the  types  of  information  they  use  to  make 
decisions,  and  determine  how  much  of  this  information  was  available  from  UICP.  This 
insight  into  the  inventory  manager’s  needs  can  be  merged  with  computer  technology 
and  can  be  used  to  improve  their  efficiency  and  the  quality  of  their  work  environment. 
D.  METHODOLOGY 

The  following  list  describes  the  methodology  which  was  used  to  approach  each  of 
the  areas  mentioned  in  the  previous  section: 

1 .  Hardware  Selection 

Study  the  ASO  environment  and  select  the  best  hardware  type  that  would 
support  the  overall  requirements. 

2.  Software  selection 

Review  the  available  integrated  office  automation  software  and  select  the  one 
which  best  supports  the  requirements  of: 

•  Access  to  the  UICP  database  from  within  the  office  automation  software. 
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•  Ability  to  import  a  subset  of  the  UICP  database  and  use  the  data  within  the 
office  automation  software  to  form  a  decision  support  system. 

•  A  user  interface  that  is  as  easy  to  understand  and  learn  as  the  Xerox  PARC  / 
Open  View  interface  standard.  (The  Xerox  standard  is  the  industry  accepted 
standard.  Examples  of  systms  using  this  standard  are  the  Apple  Macintosh, 
Microsoft  Windows,  IBM  Presentation  Manager.) 

•  Electronic  Mail  which  can  be  transmitted  between  the  inventory  managers  and 
other  groups  and  organizations. 

3.  Data  identification  and  management 

Interview  inventory  managers  and  analyze  the  UICP  data  products  they  use. 
Determine  which  data  elements,  provided  by  the  UICP  products,  they  need  to  perform 
their  duties.  Learn  how  the  inventory  managers  process  the  information  they  obtain, 
and  how  they  use  it  to  make  decisions. 

4.  Program  development 

Use  the  selected  software  product  to  develop  the  DSS. 

5.  System  integration 

Integrate  the  IM  Workstation  into  the  IBM  3090  mainframe  environment. 
Provide  the  following  telecommunications  access:  Remote  Job  Entry  (logical  unit  one 
(LU  1);  TTY  terminal  access  (LU  2);  and  Block  terminal  (LU  6.2). 
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II.  DECISION  SUPPORT  SYSTEMS 


A.  INTRODUCTION 

To  understand  what  a  decision  support  system  (DSS)  is  and  how  it  could  be  used 
to  support  the  ASO  inventory  manager  we  will  discuss  the: 

•  Theoretical  framework. 

•  Components  of  the  DSS. 

•  System  Integration. 

•  Measures  of  effectiveness. 

B.  THEORETICAL  FRAMEWORK 

In  designing  a  DSS,  usefulness  and  ease  of  use  are  the  most  important  characteris¬ 
tics.  Usefulness  is  the  degree  to  which  a  DSS  assists  a  decision  maker  in  performing 
his^er  tasks.  Does  the  DSS  allow  the  decision  maker  to  be  more  efficient  and  make 
betrer,  more  effective  decisions?  Ease  of  use  is  important  because  no  matter  how 
good  a  DSS  is,  if  it  is  difficult  to  use  or  not  understood,  the  targeted  users  will  not 
use  it  or  will  not  trust  it.  Sprague  and  Carlson  present  a  framework  for  designing  a 
DSS  that  considers  this  user-oriented  approach  [Ref.  4],  They  characterize  a  DSS  as  a 
computer  based  system  which  helps  decision  makers  confront  ill-structured  problems 
through  direct  interaction  with  data  and  analysis  models.  Sprague  and  Carlson’s 
framework  uses  Representations,  Operations,  Memory  Aids,  and  Control  Mechanisms 
to  define  the  capabilities  of  the  DSS.  The  DSS  should  provide  the  capabilities  of  a 
Dialog  component,  a  Data  component  and  a  Model  component  (Figure  3).  Each  of 
these  components  will  be  discussed  later  in  this  chapter. 
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Figure  3  Components  of  a  DSS 


The  current  system  used  by  inventory  managers  somewhat  resembles  Mason's 
databank  design  as  shown  in  Figure  4  [Ref.  5].  The  information  system  provides 
reports  based  upon  the  data  it  is  analyzing.  The  decision  maker  is  then  required  to  act 
upon  the  reports  based  upon  his  own  experiences  and  knowledge.  The  drawbacks  of 
the  databank  type  of  system  shown  in  Figure  4  are  evident  in  the  current  inventory 
system.  Reams  of  paper,  containing  much  irrelevant  data,  are  produced  by  the  UICP 


program  on  the  IBM  3090.  The  inventory  manager’s  response,  to  this  volume  of 
information,  is  to  ignore  much  of  the  data  and  manage  by  exception.  Decision  making 
tasks  are  performed  by  the  inventory  manager  without  the  aid  of  an  automated 
support  system  and  the  quality  of  his  or  her  decisions  are  a  function  of  his  or  her 
experience.  While  procedures  and  guidelines  are  provided  to  the  inventory  manager,  in  a 
manual  system  their  personal  preferences  and  individual  experience  strongly  influence 
how  they  solve  the  problem.  These  decisions  may  lack  consistency  when  you  look  at 
inventory  managers  as  a  group.  Tversky  &  Kahneman  state  that  how  choices/decisions 
are  framed  for  the  decision  maker  can  influence  his  or  her  decision  [Ref.  6:pp. 
453-458], 


Figure  4  Mason’s  Databank  Design 


The  DSS  will  make  predictions,  draw  inferences,  evaluate,  and  recommend  a  choice  of 
action.  The  DSS  can  have  choices  couched  in  such  a  way  that  inventory  managers  make 
their  decision  in  accordance  with  standard  operating  procedures  rater  than  their  own 
preferences  without  realizing  it.  For  the  inventory  manager  (IM)  these  decisions  could 
be  in  the  areas  of  quantity  to  buy  or  to  issue.  While  the  DSS  can  assist  the  inventory 
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manager  in  making  a  correct  decision,  taking  action  will  still  be  the  responsibility  of  the 
decision-maker. 

In  the  current  system,  the  supervisor  also  does  not  have  an  effective  method  of 
determining  if  the  inventory  manager  is  making  efficient  use  of  the  data  provided.  By 
the  time  a  supervisor  realizes  that  one  of  his  or  her  managers  has  been  ignoring  the 
data  from  the  reports,  the  damage  is  done  and  could  take  years  to  correct.  The  same 
computer  that  provides  the  DSS  for  the  inventory  manager  could  also  provide  a  DSS 
for  the  supervisor  that  is  linked  to  the  same  database.  This  supervisory  level  DSS  could 
be  used  to  monitor  the  inventory  manager.  This  monitoring  would  ensure  that  the 
inventory  manager  is  taking  advantage  of  the  data  provided  from  the  mainframe  models 
through  the  DSS.  For  example,  a  supervisor  could  check  to  see  if  inventory  manager's 
are  using  the  DSS  to  review  stock  numbers  called  out  by  the  supply  demand  review'  (a 
UICP  mainframe  model). 


Figure  5  Mason’s  Decision-Making  System 


The  DSS  for  inventory  managers,  proposed  in  this  thesis,  is  similar  to  Mason’s 
decision-making  system  [Figure  5],  "A  DSS  does  not  replace  or  compete  with  other 
systems;  instead,  it  extracts  from  other  systems  the  information  that  is  essential  to 
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the  process  of  decision-making."  [Ref.  7:pp.  115-121].  For  the  inventory  manager, 
the  DSS  provides  a  method  of  accessing  the  data  on  the  mainframe  and  receiving  the 
outputs  in  an  electronic  form  (as  opposed  to  paper)  such  that  the  information  can  be 
further  analyzed.  For  example,  the  DSS  would  allow  the  importing  of  data  generated  by 
the  supply  demand  review  (SDR)  into  a  preformatted  spreadsheet.  This  spreadsheet 
would  allow  the  manager  to  adjust  variables  such  as  expected  demand  and  examine  the 
effects  of  inventory  levels  on  expected  buy  quantities.  Once  the  manager  decided  upon 
the  appropriate  quantity  to  buy,  the  DSS  system  could  generate  a  procurement  request 
and  forward  it  via  a  network  for  action.  This  action  could  trigger  several  reports  that 
would  be  added  to  the  inventory'  manager’s  electronic  stock  number  notebook. 

An  interface  between  the  mainframe  models  and  the  DSS  would  provide  a  action 
tracking  system  that  would  act  as  a  holding  file  for  reviews  recommended  by  the 
models  but  not  yet  conducted  by  the  inventory  manager.  This  file  would  show  the 
inventory  manager  what  work  is  still  outstanding  and  would  also  allow  the  supervisor 
to  monitor  reviews  that  have  been  in  the  action  tracking  system  for  an  extended  period 
of  time  without  action  having  been  taken.  Thus  this  DSS  would  serve  multiple  levels  of 
users.  The  most  important  feature  of  this  DSS  is  that  managers  are  allowed  to  work 
interactively  with  the  data.  The  DSS  will  assist  them  in  making  decisions  but  will  not 
replace  their  judgment.  As  discussed  by  Keen,  if  a  task  can  be  completely  automated, 
there  is  no  need  for  the  manager  to  be  involved  at  all  with  the  decision  process.  A  DSS 
should  be  used  with  "semi-structured"  tasks  in  which  some  functions  can  be  best 
handled  by  the  computer  system  and  others  by  the  manager  [Ref.  8:pp.  88-99]. 
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C.  COMPONENTS  OF  THE  DSS 

As  shown  in  Figure  3,  the  three  Components  of  a  DSS,  as  defined  by  Sprague  and 
Carlson,  [Ref.  4]  are: 

•  Dialog 

•  Data 

•  Models 

The  union  of  these  three  components  provides  the  necessary  interface  between  the  user 
and  the  master  data  base.  Not  only  is  this  an  extraction  of  data  from  the  mainframe, 
but  it  is  also  a  methodology  for  how  the  data  is  effectively  used  once  it  is  at  the 
user’s  disposal.  Each  of  the  three  components  for  this  specific  DSS  will  be  addressed  in 
turn. 

1.  Dialog  Component 

An  important  part  of  the  interface  is  the  dialog  component.  The  dialog  compo¬ 
nent  is  concerned  with  how  the  information  is  displayed  to  the  user,  and  how  the  user 
interacts  with  the  DSS.  Alexander  considers  a  well-designed,  graphical  output  to  be 
one  of  eight  critical  success  factors  in  developing  an  effective  DSS  [Ref.  7:pp. 
115-121].  A  graphical  user  interface  such  as  that  recommended  by  Xerox’s  Palo  Alto 
Research  Center  (PARC)  will  provide  the  user  with  representations  that  are  easily 
understood.  Xerox’s  recommendations  for  the  "Star  User  Interface"  included  [Ref. 
9:pp.  242-282]: 

•  Icon  based  user  interface. 

•  Black  letters  on  a  white  screen. 

•  Multiple  Windows. 

•  Mouse  based  pointing  system 
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•  What  you  see  is  what  you  get  (WYSIWYG)  display. 

•  Standardized  interface  between  various  applications. 

•  Pull  down  menus. 

This  standard  has  been  best  implemented  in  the  Apple  Macintosh  series  of  comput¬ 
ers.  This  dialog  interface  is  also  available  on  several  other  systems  such  as  Digital 
Research’s  GEM  operating  system  and  ALIS,  a  multi-user,  UNIX  based  office  automa¬ 
tion  package.  In  order  to  accommodate  multiple  users  and  the  varying  skill  and 
experience  levels  of  the  users,  an  effective  and  easy  to  use  DSS  should  be  chosen.  This 
will  allow  the  user  to  select  the  options  he  or  she  prefers  or  requires.  For  this  reason, 
the  DSS  used  in  this  thesis  was  the  ALIS  software  which  has  the  Xerox  "Star  User 
Interface". 

ALIS  was  also  selected  because  it  has  the  necessary  tools  to  build  and  support  a 
DSS.  It  contains  the  following  functions: 

•  Word  Processing 

•  Spreadsheet 

•  Database 

•  Graphics 

This  system  allows  the  spreadsheet  and  database  to  be  pre-scripted1  to  import 
mainframe  data  and  provide  the  tools  for  the  inventory  manager  to  analyze  the  data 
and  make  a  decision.  The  interrelationship  of  data  and  models  to  the  dialog  component 
will  be  discussed  in  greater  depth  in  the  following  sections.  Chapter  3  will  discuss  the 
selection  of  the  ALIS  software  system  in  more  depth. 


1  The  attributes  and  design  of  a  standard  document  can  be  predefined  and  saved  for 
future  use. 


15 


2.  Data  Component 

The  next  component  to  consider  is  the  data  component.  In  the  current  system, 
the  data  resides  on  an  IBM  3090  mainframe.  While  this  mainframe  can  hold  a  huge 
volume  of  data,  the  item  manager  must  be  able  to  easily  determine  which  data  items  are 
needed  and  to  obtain  this  selected  data  easily.  With  the  UICP  system  containing  over 
4,000  data  elements,  the  complexity  associated  with  extracting  the  data  from  UICP 
means  it  is  only  possible  for  individuals  with  extensive  programming  experience  to 
access  the  data.  Access  to  this  data  is  only  available  to  the  item  manager  via  the  limited 
A02  application  programs. 

In  building  a  DSS,  Keen  [Ref.  8:pp.  88-99]  suggests  asking  some  key  questions 
such  as: 

•  What  is  the  decision  or  task? 

•  What  information  is  used? 

•  In  what  way  is  the  information  used  to  reach  the  decision  or  task? 

Interviewing  the  inventory  managers  will  hopefully  reveal  the  information  needed  to 
build  the  DSS.  The  objective  of  the  interview  is  to  determine  what  data  the  inventory 
managers  use,  what  data  they  perceive  that  they  need  but  do  not  have,  and  what  data 
they  perceive  that  they  need  but,  in  reality,  do  not  use.  This  could  be  accomplished  by 
interviewing  a  group  of  inventory  managers.  They  would  be  asked  to  describe: 

•  What  procedures  they  do  and  actions  they  take. 

•  What  data  and  reports  they  use  in  performing  those  procedures. 

•  What  data  and  information  they  use  from  the  present  reports  or  print-outs. 
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By  including  both  open-ended  questions,  directed  questions,  and  observations,  we 
would  hope  to  determine  most  of  their  needs  for  data,  while  at  the  same  time  avoiding 
some  of  the  erroneous  assumptions  described  by  Ackoff  [Ref.  3:pp.  147-156]  such  as: 
more  data  is  better  and  the  manager  needs  what  he  wants. 

But  interviewing  the  inventory  manager  is  not  an  end  in  itself.  While  the 
inventory'  managers  have  stated  how  they  work  with  and  use  the  data,  their  actions 
might  not  be  in  accordance  with  present  policy.  As  discussed  by  Huber  [Ref.  10:pp. 
567-579],  care  must  be  taken  not  to  reinforce  a  lack  of  procedural  compliance  that 
could  be  introduced  into  the  system  from  these  interviews.  The  end  result  of  the  DSS 
design  process  is  to  develop  a  system  that  blends  the  managers  cognitive  style  with 
proper  procedure.  The  resulting  DSS  presents  a  computer  based  system  that  is 
procedurallv  correct  but  representative  of  the  manager’s  cognitive  style. 

Once  the  total  spectrum  of  mainframe  data  elements  is  boiled  down  to  a  usable 
kernel,  day  to  day  data  needs  and  exception  data  from  the  models  can  be  identified. 
The  goal  is  to  generate  a  data  file  each  night  that  can  be  down  loaded  to  the  inventory 
manager's  working  group  computer.  This  data  file  should  be  able  to  provide  85  to  90 
percent  of  the  daily  data  requirements  of  the  inventory'  manager.  The  mainframe 
models  generate  items  for  review,  e.g.,  levels  and  supply  demand  review  (SDR).  Present 
UICP  methods  take  the  few,  new  pieces  of  information  and,  using  day  to  day  data, 
generate  a  printed  report.  The  DSS  will  only  require  the  new  data  elements  and  the 
merging  will  occur  at  the  inventory’  manager’s  level.  This  will  be  a  much  more  efficient 
use  of  mainframe  computer  resources. 
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Through  the  use  of  a  multi-user  /  multi-tasking  minicomputer  the  inventory 
manager  will  be  able  to  use  the  DSS  to  access  this  data  and  use  it  more  efficiently.  Not 
only  does  this  method  of  data  movement  reduce  interactive  queries  on  the  mainframe 
but  it  also  provides  the  inventory  manager  with  a  structured  way  to  manipulate  the 
data. 

3.  Model  Component 

The  third  component  in  the  design  is  the  model  component.  The  interviews,  in 
addition  to  determining  the  data  requirements,  will  provide  an  insight  into  how  the 
inventory  managers  perform  their  tasks  and,  hopefully,  how  the  processes  involved 
could  be  improved  and  made  more  effective.  Gorry  and  Scott  Morton  [Ref.  1 1  :pp. 
55-70]  suggest  that  the  types  of  models  to  use  will  vary  with  the  skill  and  experience 
level  of  the  manager,  as  well  as  their  training  and  background.  The  type  of  operations 
(and  models  which  will  perform  these  operations)  can  be  determined  through  the 
interviews. 

As  part  of  building  the  DSS  model,  the  inventory  managers  must  understand  it 
or  have  an  opportunity  to  review  an  explanation  of  its  functions.  Brennan  and  Elam 
[Ref.  12]  suggest  that  the  DSS  must  be  able  to  answer  the  "why"  as  w'ell  as  the  "what 
if".  They  also  suggest  that  the  output  be  presented  conceptually  rather  then  in  a 
data-oriented  way  to  assist  in  the  understanding  of  the  information  being  presented. 
An  example  of  information  being  presented  in  a  conceptual,  rather  then  a  data  oriented 
style  would  be  the  DSS  providing  a  line  graph  plotting  buys  versus  demand.  The  graph 
would  replace  a  report  with  the  two  columns  of  numbers  showing  buys  and  demands. 
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Tverskv  and  Kahneman  [Ref.  6:pp.  1 124-1 131]  stress  that  it  is  not  enough  to 
give  the  manager  the  information  he  needs.  The  information  must  be  presented  in  a 
such  a  way  as  to  overcome  misconceptions,  biases  and  fallacious  thinking.  Further,  the 
manager  must  trust  the  DSS.  The  end  result  will  be  more  consistent  than  that 
obtained  with  the  inventory  manager  using  printed  report,  pencil  and  calculator  to 
compute  requirements. 

It  is  clear  that  the  success  and  effectiveness  of  this  DSS  is  greatly  dependent 
upon  its  ability  to  elicit  information  from  the  inventory  managers.  It  is,  of  course, 
important  to  know  what  data  is  required  by  the  managers.  This  data  forms  the  data 
base  component.  How  and  in  what  way  the  data  must  be  manipulated  is  also  important 
and  forms  the  model  base  component  of  the  system. 

In  the  current  system,  data  is  available,  but  access  is  slow  and  inflexible.  The 
data  and  models  which  are  necessary  for  the  inventory  manager  to  perform  his  job  need 
to  be  accessible  quickly  and  easily.  To  avoid  overwhelming  the  inventory  manager  with 
more  data  and  more  options  than  he  can  realistically  use,  some  limits  must  be  placed  on 
what  is  made  available.  It  is  not  feasible  to  provide  all  the  information  that  the 
manager  might  ever  need.  Rockart  [Ref.  1 3 : pp  81-93]  suggests  a  methodology  in 
which  chief  executives  define  their  needs  by  clarifying  what  they  view  as  critical  success 
factors.  A  similar  approach  can  be  taken  here  to  clarify  the  needs  of  the  inventory 
managers. 

D.  SYSTEM  INTEGRATION 

Once  the  components  of  the  DSS  have  been  defined,  the  shell  to  provide  system 
integration  must  be  specified.  The  shell  will  provide  the  tools  to  implement  the  DSS 
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and  in  this  case,  also  perform  Office  Automation  (OA).  While  the  DSS  will  assist  the 
inventory  manager  in  making  more  effective  decisions,  much  of  the  inventory  manager’s 
day  is  spent  doing  more  mundane  tasks  such  as  preparing  memos  and  letters,  perform¬ 
ing  quick  "what  if  analysis,  and  maintaining  their  inventory  manager’s.  OA  consisting 
of  word  processing  and  spreadsheet  and  database  capabilities  which  will  reduce  the 
length  of  time  these  tasks  require  and  improve  the  quality  of  the  output  from  these 
activities. 

The  DSS  program  is  integrated  into  the  OA  system.  The  inventory  manager 
perceives  the  DSS  as  another  application  choice  like  the  existing  applications.  Therefore, 
in  addition  to  a  word  processing,  a  spreadsheet  and  a  personal  database,  a  choice  of 
Inventory  assistance  would  be  available.  The  more  the  DSS  appears  as  a  pan  of  the  OA, 
the  less  chance  that  the  inventory  managers  will  perceive  the  system  as  an  attempt  by 
management  to  control  them,  and  more  as  a  tool  to  assist  them.  Despite  the  fact  that 
the  DSS  will  actually  yield  the  greatest  improvement  in  the  inventory  manager’s 
effectiveness,  the  inventory  manager  will  perceive  OA  as  being  most  helpful.  This  is  due 
to  the  dislike  that  inventory'  manager’s  have  for  the  disproportional  amount  of  time 
spent  performing  these  mundane  secretarial  tasks.  Once  this  burden  is  reduced,  the 
benefits  provided  by  the  inventory  assistance  applications  will  be  realized. 

A  final  capability  provided  by  the  OA  system  would  be  an  electronic  mail  system 
(E-Mail).  The  present  inventory  control  point  (ICP)  mail  system  is  a  separate  applica¬ 
tion.  In  order  for  an  inventory  manager  to  send  or  receive  mail  on  the  current  3270 
terminals,  they  must  leave  the  application  they  are  in  and  start  the  E-mail  package.  The 
E-mail  on  the  IM  Workstation  would  allow  the  inventory  manager  to  pause,  send  or 
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receive  mail,  and  then  resume  their  work.  Not  only  is  less  time  wasted,  but  the 
inventory  manager’s  thought  process  is  not  interrupted.  Additionally  the  integrated 
system  would  allow  memos,  letters,  spreadsheet,  and  data  files  created  by  the  system 
to  be  mailed. 

E  MEASURES  OF  EFFECTIVENESS 

Another  item  that  must  be  considered  for  this,  or  any,  DSS  is  the  measure  of  its 
effectiveness.  Some  DSS  benefits  summarized  by  Keen  [Ref.  14]  include:  fast  response 
to  unexpected  situations,  ability  to  carry  out  ad  hoc  analysis,  control,  cost  savings, 
better  decisions,  time  savings,  and  making  better  use  of  data  resources.  While  some  of 
these  measures  of  effectiveness  are  difficult  to  quantify  and  even  harder  to  quantify  in 
terms  of  a  return  on  investment,  I  believe  there  will  be  measurable  benefits  associated 
with  an  inventory  management  DSS.  The  effectiveness  could  be  measured  by: 

•  Inventory  manager  satisfaction  with  the  workstation. 

•  Number  of  line  items  managed  per  inventory  manager. 

•  Number  of  exception  actions  per  inventory  manager. 

•  Inventory  manager  product  quality. 

•  Satisfaction  of  higher  level  managers  and  the  inventory  manager’s  supervisors. 

•  Changes  which  occur  in  the  quantity  and  nature  of  information  transferred 
between  people  in  the  organization. 

Satisfaction  with  the  DSS  perhaps  cannot  be  quantified,  but  certainly  it  must  be 
measured  in  some  method.  Over  the  long  term,  maybe  employee  turn-over  may  provide 
some  indications  of  satisfaction  with  the  system. 
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III.  HARDWARE  AND  SOFTWARE  SELECTION 


A.  INTRODUCTION 

The  selection  of  the  correct  hardware  and  software  to  implement  the  DSS  was 
one  of  the  most  challenging  areas  of  this  thesis.  While  ASO  had  already  planned  a 
hardware  architecture,  as  discussed  below,  it  was  chosen  several  years  ago  and  didn’t 
contain  all  the  elements  needed  to  implement  a  DSS.  During  the  hardware  and  software 
selection  phase  the  benefits  of  certain  hardware  and  software  combinations  were 
constantly  compared  against  the  planned  architecture.  The  decision  to  select  alternative 
hardware  and/or  software  which  was  different  from  that  in  the  planned  architecture 
had  to  show  that  the  alternative  provided  sufficient  benefits  to  make  a  departure  from 
the  plan  worthwhile.  Additionally,  the  desire  of  the  Department  of  Defense  to  have 
full  and  open  competition  made  the  selection  of  a  proprietary  (unique  to  a  certain 
manufacturer's)  hardware  and  operating  system  solution  inadvisable.  If  a  computer 
system  can  only  be  provided  by  a  single  vendor,  then  a  competitive  procurement 
between  several  vendors  is  not  possible.  Therefore,  the  software  selected  to  imple¬ 
ment  the  DSS  must  be  exportable  to  as  wide  a  range  of  hardware  and  operating 
systems  as  possible. 

B.  PLANNED  ASO  HARDWARE  ARCHITECTURE 

To  give  the  inventory  manager  a  more  efficient  method  for  reviewing  and  using 
the  data  and  reports  from  the  UICP,  the  "resolicitation"  effort  was  started  by  the 
Naval  Supply  Systems  Command.  The  resolicitation  effort  provided  state  of  the  art 
computer  hardware  to  replace  the  obsolete  computers  used  to  run  the  UICP  system. 
The  transition  phase  of  resolicitation  involved  relocating  the  main  database  onto  state 
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of  the  art  hardware  and  improving  data  management  with  a  4th  generation  database 
management  system  (DBMS).  This  phase  is  nearing  completion.  The  next  step  is  the 
business  support  phase.  The  main  goals  are  to: 


•  Introduce  new  technology  (hardware  and  software). 

•  Support  non-UICP  processes. 

•  Promote  end-user  development. 

•  Automate  and  facilitate  manual  processing. 

The  software  technology  to  support  this  effort  is  shown  in  Figure  6: 
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Figure  6  Software  Technology  for  the  Business  Support  Phase 
The  data  strategy  to  support  this  effort  is  shown  in  Figure  7: 
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Figure  7  Data  Strategy  for  the  Business  Support  Phase 
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The  hardware  technology  for  the  host  and  distributed  departmental  levels  is  IBM 
370  series  computers  (IBM  9370,  IBM  3090,  IBM  4381,  IBM  3033)  or  equivalent. 
At  the  inventory  manager  level,  the  current  plan  calls  for  installing  IBM  Personal 
Computers  (PC).  A  PC  would  be  installed  at  each  inventory  manager’s  desk.  These  PCs 
would  be  linked  via  an  IBM  token-ring  connected  to  a  PC  acting  as  a  file  server.  The 
token-ring  also  would  be  connected  to  a  IBM  9370  minicomputer  and  further  linked  to 
an  IBM  3090  mainframe  computer.  This  linkage  would  allow  the  PC  to  access  the 
information  on  the  larger  machines.  Inventory  data  and  management  information 
would  be  distributed  to  the  9370  at  the  departmental  level  and  further  divided  for  each 
work  group  and  placed  on  the  local  server.  When  the  inventory  manager  (IM)  has  a 
need  for  a  specific  item  of  data,  he  would  select  the  appropriate  program  to  retrieve 
this  data.  The  local  PC  will  send  a  request  to  the  server  to  provide  the  program  (the 
executable  code)  and  it  would  be  transferred  to  the  inventory  manager’s  PC  and 
executed.  Next  the  PC  can  request  the  server  to  provide  data  from  a  file  resident  on 
the  servers  hard  disk.  The  data  is  is  provided  by  the  server  and  used  by  the  PC  to 
satisfy  the  requirement.  The  inventory  manager’s  PC  would  treat  the  server  as  an 
extension  of  itself.  ^ 

C.  HARDWARE 

The  characteristics  used  as  a  criteria  for  selecting  the  hardware  and  operating 
system  were  those  characteristics  that  would  best  support  the  development  of  a  DSS. 
The  most  important  characteristic  of  the  hardware  is  that  it  should  require  minimum 

*  Charts  and  strategy  plan  from  presentation  made  by  Ms  Sandra  Graves,  ASO,  Code 
PL  -  RB,  November  1987  to  the  ICP  Strategic  Planning  Group. 
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knowledge  of  computer  operating  and  network  systems  from  the  user.  Another 
characteristic  is  that  the  hardware  should  provide  reasonable  response  times  for  data 
base  applications.  The  selected  computer  should  take  advantage  of  mature  technology, 
that  is  in  general  use.  The  capacity  of  the  mass  storage  system,  should  be  able  to 
support  several  months  of  operation  and  should  be  easily  expandable.  The  operating 
system  should  be  multi-tasking  so  the  inventory  manager  does  not  have  to  wait  for 
printing  and  mail  operations  to  be  completed  before  continuing  to  use  the  system. 
Access  to  the  SNA  network  and  the  IBM  3090  are  vital.  The  inventory  manager 
should  have  3278  terminal  emulation  available  on  the  IM  Workstation,  so  that 
software  on  the  IBM  3090  can  be  accessed.  The  ability  to  transfer  files  between  the 
IBM  3090  (MVS/TSO)  and  the  IM  Workstation  file  server  is  also  required.  Data 
transferred  from  the  mainframe  to  the  local  computer  will  be  used  with  the  DSS,  and 
DSS  program  outputs  will  be  sent  to  the  IBM  3090  for  transaction  processing.  A 
final  requirement  is  the  ability  to  provide  remote  access^  for  Inventory  managers  to 

their  local  files  and  data  bases.  It  is  intended  that  the  IM  Workstation  will  provide  the 
inventory  manager  with  the  following: 

•  Interactive  access  to  the  main  data  base. 

•  The  ability  to  use  the  data  with  a  decision  support  system. 

•  Basic  office  automation. 

•  Tracking  of  individual  inventory  manager  actions. 

•  Electronic  mail. 

•  A  local  database  which  supports  the  working  group’s  requirements. 


"  Using  the  DSS  via  a  laptop  computer  connected  by  modem  to  the  local  system 
while  attending  a  meeting  away  from  ASO. 
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•  An  easy  to  understand/leam  user  interface. 

•  A  user  interface  which  is  easy  to  understand  and  learn. 

The  following  sections  will  discuss  the  technical  and  management  issues  involved 
with  the  PC  LANs  as  presently  planned  for  use  by  the  inventory  managers.  The  major 
issues  which  will  be  discussed  are: 

•  Security. 

•  The  limitations  of  MS-DOS. 

•  Limitations  of  other  software  (on  a  local  area  network). 

•  PC  LAN  server  performance  and  disk  drive  input  and  output. 

•  LAN  stability. 

•  Data  base  management. 

•  PC  LAN  Management. 

•  PC  LAN  inefficiencies. 

1.  Security 

It  is  probably  the  most  critical  concern  of  any  computerized  system.  MS-Net 
(Also  known  as  the  IBM  PC  LAN)  has  extremely  limited  logon  and  access  security. 
Commands  to  start  the  server,  including  passwords,  are  kept  in  ordinary  DOS  batch 
files,  which  could  be  viewed  by  knowledgeable  network  users  [REF.  15:p.  1], 

In  one  installation  there  was  no  dial-up  capability;  only  those  computers  that  were 
hard  wired  into  the  network  had  access  to  the  files.  The  manager  of  the  PC  LAN  made 
this  decision  because  the  security  inherent  in  all  local-area  network  systems  is,  in  his 
opinion,  unsatisfactory  [REF.  1  6 : p .  41].  A  local-area  network  of  10  personal 
computers,  according  to  some  computer  system  managers,  is  a  minicomputer  system.  A 
network  of  40  personal  computers,  connected  to  a  400  M-byte  file  server,  should  be 
considered  a  mainframe.  Therefore,  all  the  controls,  check  and  balances,  as  well  as 
security  issues,  used  to  govern  a  mainframe  computer  system  should  be  applied  to  this 
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local-area  network  [REF.  17:p.  63].  Since  IBM’s  MS-NET  does  not  provide  this  level 
of  security  the  value  of  the  LAN  is  affected.  Further,  the  ability  to  download  data 
onto  floppy  disks  is  a  data  security  concern. 

2.  MS-DOS  Limitations 

MS-DOS  is  a  single-user  operating  system,  therefore  it  is  difficult  to  make 
multi-user  functions  available  [REF.  18:p.  24].  Under  MS-DOS,  interactions  between 
the  network  software  and  applications  software  are  extremely  complex  and,  in  many 
cases,  only  sketchily  understood  by  programmers  and  service  representatives  [REF. 
19:p.  32].  Also  if  the  software  has  to  create  or  delete  intermediate  files  during  the 
running  of  the  program,  the  user  must  have  rights  to  create  and  delete  these  files  and 
must  be  permitted  to  write  to  the  appropriate  drive.  Some  installation  programs 
won’t  run  because  internal  batch  files  are  trying  to  copy  files  to  drives  which  don’t 
exist  in  the  network  configuration.  [REF.  19:p.  32],  MS-DOS  limits  the  size  of  hard 
disk  partitions  to  32  megabytes  (Mb).  Since  the  amount  of  data  that  w'ill  have  to  be 
stored  on  the  server  for  the  inventory  managers  could  exceed  the  32Mb  limit,  several 
partitions,  labeled  A  through  Z,  would  have  to  be  set  up.  But  a  problem  exists  because 
some  applications  packages  do  not  let  users  access  hard  disk  partitions  above  the  "F" 
level.  Even  if  a  software  product  is  rich  in  both  features  and  functionality,  the 
software’s  use  on  a  PC  LAN  could  be  rejected  due  to  this  driver  limitation  [REF.  18:p. 
24],  The  use  of  multiple  drive  partitions  increases  the  difficulty  for  the  end  users, 
forcing  them  to  be  well  versed  in  MS-DOS  operations  to  effectively  use  the  network. 
This  level  of  expertise  isn’t  typically  found  in  an  inventory  manager. 
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Unlike  MS-DOS,  a  multi-tasking  system  allows  more  than  one  activity  to  occur 
at  the  same  time.  In  the  case  of  a  local  area  network,  true  multi-user  software  would 
allow  two  individuals  to  share  the  same  data  at  the  same  time.  Should  one  of  those 
individuals  edit  the  information,  the  network,  in  conjunction  with  the  applications 
software,  would  lock  the  record  to  ensure  that  the  integrity  of  the  data  was  main¬ 
tained.  A  LAN  controls  access  to  single  user  software  a  little  differently.  Although  the 
LAN  software  may  include  record  locking  features,  the  single  user  software  does  not. 
Both  users  can  still  view  the  same  record.  However,  should  one  individual  decide  to  edit 
a  record,  the  entire  file  locks  making  all  of  IT’S  data  unavailable  to  others  until  the 
operation  is  completed  [REF.  19:p.  24],  Unlike  a  single-user  version,  network  versions 
(or  "network-aware"  software  packages)  offer  file-  and  record-locking  features  and 
allow  users  more  flexibility  in  terms  of  peripheral  sharing,  document  sharing,  and 
document  merging,  according  to  some  consultants  [REF.  18:P.25].  But  even  network 
(or  "network-aware"  software  packages)  are  constrained.  For  example  a  problem  with 
the  networking  version  of  dBase  III  stems  from  the  limitations  of  the  record  lock 
function  of  MS-DOS,  under  which  dBase  is  written.  The  MS-DOS  function  not  only 
locks  a  record  in  use,  but  also  erects  a  barrier  so  users  cannot  get  at  any  data  that 
pertains  to  that  locked  record.  These  steps  make  it  difficult  for  users  who  have 
opened  a  database  with  a  locked  record,  to  make  use  of  all  the  data  within  the  database. 
In  essence,  what  this  does  is  block  the  part  of  the  logical  base  below  that  record  from 
other  users  [REF.  20:p.  35].  Record  locking  will  slow  down  or  deny  the  inventory 
managers  access  to  the  data  on  the  server’s  hard  disk. 


Another  problem  with  MS-DOS  involves  the  640  Kilobytes  (K  bytes)  of  random 
access  memory  (RAM)  that  the  operating  systems  is  able  to  use.  For  example  the 
single-user  and  network  versions  of  dBase  III  Plus  are  the  same  product,  except  the 
network  version  has  the  "network-aware"  features.  While  the  dBase  program  is  the 
same  for  both  versions,  to  use  dBase  on  a  network,  users  must  purchase  the  dBase  III 
Plus  LAN  Pack  in  addition  to  dBase  III  Plus.  While  the  memory  requirement  for  dBase 
III  Plus  is  normally  384K  bytes  of  RAM  for  a  standalone  PC,  a  PC  on  a  token-ring 
network  using  the  LAN  Pack,  requires  512K  bytes  or  more  of  RAM  [REF.  18:p.  25]. 
For  business  purposes,  the  640K  bytes  of  RAM  currently  offered  by  MS-DOS  is 
"woefully  inadequate  today  and  will  certainly  be  worse  tomorrow...  The  640K  bytes  of 
RAM  is  such  a  limitation  that  some  AT  users  have  to  reboot  their  systems  between 
applications  because  of  overcrowding  from  RAM-resident  software."  [REF.  21  :p.  27]. 
Since  the  main  application  the  inventory  manager  would  probably  be  using  on  a  PC  LAN 
is  a  data  base  program,  the  limited  memory  on  the  PC  will  allow  only  a  limited  amount 
of  data  to  be  stored  on  the  PC.  This  lack  of  data  in  RAM  will  necessitate  frequent 
requests  for  data  from  the  server  thru  the  network  and  therefore  reduce  the  response 
time  of  the  program. 

The  final  MS-DOS  limitation  I  will  discuss  is  a  function  of  IBM’s  method  of 
supporting  the  file  server.  While  some  software  vendors,  like  Novell,  have  a  special 
operating  system  for  the  file  server  which  optimizes  IT’S  input  and  output  perfor¬ 
mance,  IBM  operates  the  file  server  under  MS-DOS.  Users  who  use  IBM’s  network 
package  will  see  occasional  disk  errors  and  protection  interrupts.  This  is  caused  by  the 
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incompatibilities  between  the  server’s  capabilities  running  single  user  DOS,  and  the 
multiple  functions  expected  of  the  network  software  [REF.  22:p.  C/ 17]. 

As  an  operating  system  for  stand  alone  PCs,  MS-DOS  is  adequate.  But  when  a  PC 
is  part  of  a  LAN,  MS-DOS’s  limitations  become  a  liability.  My  observation  of  PCs 
installed  on  LANs  at  the  Naval  Postgraduate  School  have  shown  that  while  MS-DOS  on 
a  standalone  PC  is  difficult  to  use,  when  the  PC  is  in  the  LAN  environment,  IT’S 
limitations  make  it  too  difficult  for  anyone  but  the  most  expert  user,  to  use  effec¬ 
tively.  Even  shell  programs  that  try  to  insulate  the  users  from  the  operating  system 
require  the  user  to  have  an  extensive  knowledge  of  the  disk  structure  and  size 
limitations. 

3.  Software  Limitations  (On  Local  Area  Networks) 

Besides  the  limits  imposed  by  MS-DOS,  the  network  environment  imposes 
additional  constraints  on  users  and  software.  Users  seeking  such  (LAN)  software  face 
several  confusing  obstacles,  including  the  following: 

•  The  variety  of  application  software  for  networks  is  limited. 

•  The  software  that  is  available  fails  to  support  all  LANS. 

•  The  software  may  behave  differently  on  different  networks,  so  performance 
varies  [REF.  1 8 : p .  25]. 

Many  popular  PC  applications  written  specifically  for  PCs  will  not  work  on 
networks.  The  problem  is  that  most  PC  applications  are  written  only  for  single-user 
systems.  They  do  not  have  multi-user  functions  such  as  file  and  record  locking.  For 
example  Ashton-Tate  has  introduced  a  multi-user  version  of  dBase  III.  The  dBase  LAN 
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version  is  not  a  very  great  improvement  over  the  single-user  version  because  Ashton¬ 
Tate  is  trying  to  make  it  do  things  it  was  never  meant  to  do. 

Software  developers  are  presently  converting  minicomputer  applications  to 
create  PC  LAN  versions  of  the  minicomputer  application.  Some  of  these  conversions  of 
minicomputer  software  have  been  done  quite  successfully,  because  the  minicomputer 
version  of  the  application  has  had  five  to  10  years  to  mature  and  the  inital  design 
planned  for  a  multiuser  environment  [REF,  23:p.  31]. 

With  token-ring  LANs,  your  choice  is  either  NetWare  from  Novell  Inc.  or  a  LAN 
software  program,  with  lesser  overall  performance,  from  one  of  Novell’s  competitors. 
The  lackluster  performance  of  IBM’s  PC  LAN  program,  combined  with  its  large 
memory  requirements,  may  have  been  the  principal  causes  of  NetWare's  popularity 
[REF.  24:p.  C/8].  Compared  to  IBM’s  PC  LAN,  programs  react  differently  under 
NetWare’s  proprietary  LAN  operating  system.  With  different  LAN  operating  systems, 
all  running  under  MS-DOS,  software  companies  must  write  their  programs  for  a 
generic  network  interface  standard  called  Netbios.  As  a  result,  program  performance  is 
degraded  rather  than  being  optimized  to  a  specific  standard. 

As  the  emphasis  for  connectivity  increases,  the  scope  of  PC  LANs  has  changed. 
Originally,  the  PC  LAN  was  intended  to  allow  PC’s  to  share  high  cost  printers, 
exchange  files  and  share  expensive  disk  drives.  Now  PC  LANs  are  being  integrated  into 
a  hierarchical  network  where  they  are  required  to  handle  complex  data  base  applications 
and  perform  vertical  data  integration.  IBM  wants  Personal  Computer  users  to  have  a 
strong  demand  for  upstream  communications  to  minicomputer  and  mainframe 


processing.  You  can’t  do  that  with  Netbios3,  though,  so  IBM  wants  users  to  move  to 
the  LU6.24  network  interface  standard.  However,  dropping  Netbios  for  LU6.2  will 
require  some  sacrifices,  because  there  are  few  off-the-shelf  applications  written  which 
will  function  under  LU6.2.  By  contrast,  there  are  a  large  number  of  applications 
written  for  Netbios  [REF.  25:p.  18].  At  this  time,  choosing  the  correct  network 
operating  system  and  application  program  is  very  difficult.  What  the  standard  for 
network  operating  systems  will  be  in  the  future  is  hard  to  predict.  The  problems  of 
limited  software  selection,  the  lack  of  a  standard  for  network  operating  systems  and 
uneven  software  performance  makes  the  task  of  installing  a  PC  LAN  a  difficult  task  at 
best. 

4.  PC  LAN  Server  Performance  &  Disk  Drive  Inout/Output 

On  PC  LANs,  the  two  main  activities  that  are  centralized  are  disk  access  and 
network  management.  The  LAN  industry  has  adopted  the  file  server  system  of 
management  in  which  workstation  requests  for  data  or  programs  are  processed  by  a 
server  machine.  The  server  then  accesses  the  disk.  The  file  allocation  table  and  the 
question  of  when  and  where  data  may  be  written  are  managed  by  a  single  server  on  the 
LAN  [REF.  26:p.  39],  The  key  issue  for  a  file  server  is  the  speed  of  IT’S  disk  I/O 
[input/output].  The  disk  delays  that  concern  server  designers  generally  fall  into  two 
classes:  access  and  transfer  times.  Access  time  is  the  average  delay  between  the  time  the 
disk  system  receives  the  request  and  when  the  information  starts  to  flow  to  or  from 


3  The  communications  protocol  used  to  connect  the  PC  to  the  network. 

^  IBM’s  advanced  communications  protocol  used  by  the  systems  network  architec¬ 
ture  (SNA)  to  link  mainframe  computers  together. 
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the  disk.  IT’S  made  up  principally  of  the  time  needed  to  move  the  head  to  the  right 
track  (the  seek  time)  and  the  time  spent  waiting  for  the  correct  sector  to  spin  around 
to  the  head  (the  rotational  latency).  Transfer  time  is  the  actual  interval  it  takes  to 
move  the  information  on  or  off  the  disk  [REF.  27:p.  C/23]. 

If  you  look  at  the  bottlenecks  in  a  machine  that’s  acting  as  a  server,  there  are 
typically  two:  one  is  the  network  subsystem;  and  the  other  is  the  disk  subsystem.  Both 
of  these  subsystems  have  a  fair  amount  of  application  code  which  is  needed  to  control 
them,  and  by  simply  making  the  processor  faster  you  can  improve  performance  [REF. 
28:p.  C/22].  One  method  that  has  been  used  to  improve  disk  performance  is  to  have 
multiple  drives  and  spread  files  over  physically  separate  drives.  That  way,  you  can  have 
several  [disk-transfer]  tasks  going  on  simultaneously  [REF.  27:p.  C/2],  While  this 
method  will  work,  it  is  typical  of  the  complex  manipulations  used  on  PC  LANs.  The 
impact  is  that  the  user  faces  a  computer  system  which  is  increasingly  difficult  to  use. 

In  heavy-use  environments,  the  next  areas  to  examine  for  performance  constraints 
are  the  network  controller  card  and  the  disk  controller  card.  You  look  at  the  amount 
of  intelligence5  on  the  disk  controller  card  and  the  network  card.  When  heavy  network 
loads  are  present,  even  a  computer  with  a  fast  CPU  can’t  afford  to  wait  for  each  card 
to  perform  its  function  and  therefore  will  have  to  start  working  in  parallel  [REF.  2 8 : p . 
C/28] .  The  server  machine  for  multiple  users  requires  greatly  expanded  capabilities  over 
a  single-user  machine.  The  server  machine  requires  multiple  concurrent  communications, 
as  well  as  heavy  file  usage  and  multi-tasking  to  work  effectively.  But  the  present 

^ The  control  a  card  can  exercise  over  its  functions,  independent  of  the  central 
processing  unit  (CPU). 


33 


MS-DOS  operating  system  can’t  do  multi-tasking  which  therefore  imposes  a  limit  on 
LAN  performance. 

The  servers  and  workstations  are  linked  to  the  network  by  a  network  controller 
card.  A  controller  card  (one  is  installed  in  each  workstation  and  server)  is  more  critical 
to  the  operation  of  a  file  server  than  it  is  to  a  workstation,  due  to  the  large  number 
of  disk  input/output  activities  on  the  server  [REF.  29:p.  C/17].  IBM’s  token-ring 
network  uses  the  same  adapter  card  that  is  used  in  a  workstation,  this  can  lead  to 
input/output  performance  problems.  While  the  token-ring  network  is  rated  by  IBM  at 
4.0  Mbps,  a  recent  test  showed  the  transfer  rate  from  an  IBM  3090  mainframe  in 
connection  with  a  3275  terminal  controller  to  a  PC  to  be  only  0.2  Mbps  [REF.  30:p. 
C/1  ].  Such  a  low  transfer  rate  could  affect  the  ability  of  the  PC  LAN  to  provide  a 
conversational  level  of  service.6 

The  IBM  token-ring  network  does  not  use  a  specially  built  server,  but  rather 
makes  use  of  an  IBM  PC-AT  class  machine  as  a  server.  Even  though  software  for  most 
PC  networks  can  run  on  ordinary  workstations,  several  manufacturers  and  independent 
consultants  recommend  the  use  of  a  specially  built,  dedicated  file  server  for  a  net¬ 
work’s  control  coordination  and  storage.  These  vendors  claim  the  advantages  of  a 
dedicated  file  server  range  from  increased  ease  of  installation  and  greater  security,  to 
better  packaging  and  faster  performance  [REF.  29:p.  C/17].  The  use  of  an  IBM  PC-AT 
class  machine,  running  under  MS-NET,  would  lead  to  a  less  than  optimal  level  of  system 


6  A  conversational  level  of  service  is  a  speed  such  that  the  user  does  not  notice  an 
excess  delay  between  the  entering  of  a  request  and  the  response. 
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performance.  It  does  not  have  the  ability,  when  running  MS-DOS,  to  perform  the 
multi-tasking  functions  needed  for  successful  server  operations. 

5.  LAN  Stability 

LANs  are  less  stable  (prone  to  crashes  and  errors  in  data  integrity)  than 
stand-alone  PCs.  Using  complex  background  software,  the  networking  operating 
system  fools  the  workstations  into  believing  they  have  additional  disk  drives,  printers, 
serial  ports,  etc.  Even  without  "terminate  and  stay  resident"  (TSR)  type  programs,  an 
occasional  application  that  has  not  been  written  in  strict  compliance  with  MS-DOS  will 
have  difficulty  working  correctly  on  any  PC  network.  When  the  PC  is  connected  the 
network  and  and  TSR’s  are  used,  many  more  applications  have  problems. 

TSR’s  illustrate  the  major  difficulty  in  LAN  management.  Whenever  multiple 
software  packages  and  multiple  types  of  hardware  work  together,  integration  becomes 
an  important,  but  complex  task.  It  is  tempting  to  solve  the  problems  as  they  occur. 
But  this  is  only  a  stopgap  measure.  The  best  solution  to  the  integration  problem  is 
early  planning  and  a  comprehensive  management  program  [REF.  31  :p  C/5 3], 

Even  carefully  designed  security  procedures  will  never  protect  the  integrity  of  a 
network  completely.  The  best  security  is  a  current  archival  record  of  the  hard  disk. 
How  often  the  system  is  backed  up  and  whether  the  entire  system  or  only  changed  files 
are  archeived  will  depend  on  the  size  of  the  databases  and  the  volume  and  patterns  of 
data  additions  [REF.  19:p.  32].  Considering  the  large  number  of  local  area  networks 
which  will  be  installed  at  ASO,  not  only  will  this  involve  each  server  but  also  any 
workstation  with  a  hard  disk.  This  will  be  a  difficult  task  to  actually  perform  and 
manage.  If  backups  are  not  performed  religiously,  the  network  could  be  destabilized 
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through  lost  and  corrupted  data.  The  result  will  be  that  the  validity  of  data  will  be 
questioned  and  trust  in  the  system  lost. 

A  ring  network  connects  each  computer  in  a  circular  configuration.  Under  heavy 
loads  transmission  speeds  are  faster  than  those  found  in  a  eathemet  (bus)  LAN.  One 
disadvantage  to  a  ring  network  is  that  any  disruption  in  the  network,  such  as  an 
equipment  failure  or  the  addition  of  a  new  workstation,  can  cause  the  entire  network 
to  shut  down  [REF.  19:p.  21].  Asa  result  the  network  is  sensitive  to  cable  damage.  In 
the  ASO  environment,  where  a  large  number  of  the  inventory  managers  do  not  have 
modular  furniture,  the  chance  of  cable  damage  is  very  possible.  The  token-ring 
network  cabling  is  very  complex.  IT’S  installation  is  a  major  effort  and  requires  a  large 
number  of  cable  runs.  Inherent  to  this  intricate  system  is  a  very  high  cost  for 
procurement  and  installation.  Moreover  once  such  a  network  is  installed  it  is  very 
difficult  to  move. 

An  additional  area  that  can  influence  system  stability  is  outside7  software.  The 
availability  of  MS-DOS  programs  adds  a  new  dilemma  to  the  computer  management 
problem.  The  low  prices  of  PC  software  packages  will  tempt  inventory  managers,  with 
a  PC  on  their  desk,  to  buy  a  program  that  will  help  them  do  their  job  (or  balance  their 
checkbook).  So  long  as  an  application  remains  restricted  to  a  local  users  desk,  then 
software  standardization  isn’t  a  problem.  But,  when  it  becomes  a  company  wide 
application  you  have  to  have  centralized  control  over  the  software  being  used  [REF. 
32:p.  53], 

7  Software  not  provided  by  the  organization  or  included  in  the  software  configura¬ 
tion  management  system. 


The  most  perplexing  software  is  the  terminate  and  stay  resident  (TSR)  kind. 
Terminate  and  stay  resident  (TSR)  programs  such  as  Sidekick  are  mixed  blessings  for 
LAN  managers.  They  provide  convenience  for  users  and  tools  for  improved  LAN 
management,  but  they  also  cause  program  crashes  and  general  network  instability.  TRS 
problems  fall  into  four  general  categories:  insufficient  memory,  interrupt  contention, 
command-key  contention,  and  if  several  TSR’s  and  an  application  need  to  share  the 
main  640K-byte  block  of  memory,  their  may  be  insufficient  space  left  for  larger 
applications.  The  dangers  of  uncontrolled  TSR’s  are  intolerable  because  resulting 
crashes  could  damage  databases  or  corrupt  directories. 

Since  TSR’s  cannot  be  banned,  they  have  to  be  managed.  However,  TSR 
management  can  be  a  sensitive  issue.  Users  may  select  a  favorite  TRS  before  the  LAN 
is  installed.  When  told  to  stop  using  it  or  to  change  to  another  product,  the  users  can 
become  rebellious  [REF.  31  :p.  C/5].  And  because  of  the  PC’s  independent  nature,  it  is 
frequently  difficult  for  MIS  to  control  software  use. 

Overall  the  PC  LAN,  as  it  exist  today,  is  a  very  delicate  structure.  In  a 
production  environment  like  ASO.  where  stability  and  up  time  are  vital,  the  sensitivity 
of  PC  LANs  to  IT’S  environment  could  have  a  serious  impact  on  productivity. 
Additionally,  excessive  down  time  can  have  a  negative  impact  on  the  user.  If  the 
inventory  manager  finds  the  computer  system  to  be  unreliable,  or  if  IT’S  more  trouble 
to  use  than  IT’S  worth,  he  or  she  won’t  use  it. 

6.  Data  Base  Management 

The  main  issue  with  a  database  placed  on  a  PC  LAN  is  the  security  of  the  data. 
This  security  involves  both  denying  unauthorized  access,  and  preventing  unintentional 
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damage  to  the  data  base.  In  spite  of  carrying  out  conservative  security  procedures, 
data  on  any  PC  network  is  vulnerable,  due  to  the  lack  of  true  multi-user  software  and 
to  the  large  number  of  users  accessing  the  databases  [REF.  19:p.  34]. 

Another  issue  with  data  base  management  on  a  PC  LAN  is  whether  or  not  the 
level  of  data  base  work  that  will  be  done  by  the  inventory  managers  will  exceed  the 
level  of  efficiency  of  the  network.  Sometimes  it  is  desirable  for  activities  to  be 
centralized.  Application  processing,  for  example,  usually  involves  manipulation  of  small 
amounts  of  data  and  is  handled  in  the  distributed  workstations.  Application  process¬ 
ing,  however,  may  not  be  efficient  for  data  base  management  and  large  processing  jobs. 
Some  data  base  operations  are  more  efficiently  performed  in  a  central  processor.  This 
is  not  an  issue  in  smaller  data  base  systems,  but  as  the  size  of  data  bases  and  the 
number  of  workstations  increases,  so  does  the  need  for  centralized  processing  [REF. 
33 :p.  39], 

PC  LANs  are  presently  not  mature  enough  to  handle  large  production  size  data 
bases.  "You  can  have  a  shared  data  base  on  a  LAN  server,  but  PC  LAN-based  DBMS’s, 
while  they  have  made  great  strides,  don’t  yet  equal  minicomputer  based  DBMS’s,” 
[REF.  34],  The  PC  LAN-based  DBMS’s  suffer  from  the  problems  of  record  locking  and 
bottlenecking  at  the  file  server.  In  addition  the  slow  speed  of  token-ring  network  data 
transfers  from  the  server  or  minicomputer  will  cause  the  DBMS  to  have  less  then 
acceptable  performance.  Most  data  base  uses  will  require  a  conversational  interaction  (5 
seconds  or  less)  or  an  inquiry/response  interaction  (20  seconds  or  less)  [REF.  35 :p.  4], 
My  experience  with  various  token-ring  LANs  at  the  Naval  Postgraduate  schools  is  that 
these  types  of  response  goals  will  be  unattainable. 
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7.  Installation 


The  installation  of  PC  LANs  is  a  very  complex  task.  Each  installation  is 
almost  a  custom-tailored  job  [REF.  36:p.  C/8 ] .  '“In  practice,  though,  LANs  are  quite 
tricky  little  devils,’"  warns  Ian  Ebel,  president  of  Microserv  Technologies  Corp.,  a  LAN 
consulting  firm.  "‘If  you  don’t  know  what  you’re  doing,  they  can  cause  you  a  lot  of 
headaches  and  grief.’"  [REF.  23:p.  31]. 

John  Schmidt,  systems  analyst  at  American  Hardware  insurance  Group  in 
Minneapolis,  installed  three  IBM  token-ring  LAN’s  a  year  ago  and  says  that  the  big 
surprise  was  how  much  time  was  consumed.  "The  network  hardware  wasn’t  difficult, 
but  software  gave  us  problems,"  Schmidt  says.  "At  first  we  used  IBM’s  LAN 
operating  system  but  found  it  difficult  to  fine-tune  to  give  us  maximum  performance. 
We  opted  for  Novell,  Inc’s  Netware  operating  system  instead."  [REF.  37 :p.  27]. 

One  of  the  first  things  people  will  want  to  do  with  their  LAN  is  to  share  a 
high-speed  laser  printer.  Just  about  every  network  administrator  has  a  horror  story 
to  tell  about  his  or  her  printer.  The  stories  range  from  simple  connection  difficulties, 
to  getting  control  over  the  print-job  stream  and  fonts.  Just  getting  the  printer 
connected  can  sometimes  be  a  chore  [REF.  38:p.  C/9].  For  example,  one  woman’s 
station  had  a  laser  printer  attached  to  it.  To  allow  other  people  on  the  network  to 
have  access  to  the  laser  printer,  she  had  to  be  on  the  network  constantly  because  so 
many  people  wanted  to  spool  to  the  laser  printer.  With  no  administrator  present, 
many  users  were  incorrectly  spooling  to  one  of  her  disk  drives.  She  was  constantly 
losing  files  or  getting  her  PC  locked  up  and  finally  decided  not  to  boot  up  on  the 
network  [REF.  39:p.  41], 
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8 .  PC  LAN  Management 

Even  after  a  PC  LAN  is  installed,  it  requires  a  great  deal  of  attention.  Unlike 
the  stand-alone  PC,  a  PC  LAN  is  not  self  sufficient  due  to  IT’S  dependence  on  the 
server  for  application  programs  and  data  storage.  While  an  individual  might  have 
trouble  using  the  PC  on  his/her  desk,  (constantly  jamming  it  up  through  operator 
error)  when  you  link  that  person’s  PC  to  the  network  you’re  going  to  multiply  their 
mistakes  many  times  over.  In  fact  the  more  competent  users  may  refuse  to  be  on  the 
PC  LAN  because  the  mistakes  of  others  slow  them  down.  Patience  is  the  byword  when 
it  comes  to  local-area  networks.  When  the  LAN  goes  down,  lots  of  people  want  their 
spreadsheet  and  databases  brought  back  up.  The  stakes  are  higher  when  data  is  on  a 
LAN  because  the  information  on  the  server  is  inaccessible  [REF.  40:p.  C/8].  "People 
expect  an  installation  to  be  an  immediate  solution.  In  all  honesty,  IT’S  the  beginning 
of  the  solution,  not  really  the  solution  itself."  [REF.  39:p.  41], 

Initial  network  installation  is  hard  enough,  but  networking  is  now  generally  so 
complex  that  clients  need  to  be  constantly  updated  and  supplied  with  new  network 
resources  to  keep  them  current  and  competitive.  Once  you  emerge  from  the  initial 
network  installation,  you  can  run  right  into  trouble.  Suddenly  you  have  data  center 
designs,  structural  designs,  gateways  and  communications  with  remote  systems.  These 
are  network  design  elements  that  users  rarely  foresee  [REF.  37 :p.  21). 

The  final  issue  concerning  the  management  of  PC  LANs  concerns  network 
administrators.  At  ASO,  the  network  administrator  will  probably  be  an  inventory 
manager  who  will  have  this  job  as  a  collateral  duty.  It  is  very  important  to  have  well 
trained  network  administrators.  Unlike  mainframe  and  minicomputers,  the  administra- 
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tion  of  a  PC  LAN  is  an  hour  to  hour  operation.  The  same  flexibility  that  made  the  PC 
popular  is  also  it  achilles  heel.  It  is  too  easy  under  the  present  PC  LAN  operating 
systems  for  the  user  to  corrupt  data  in  the  system  or  cause  the  network  to  crash. 
The  network  administrator  must  be  on  hand  as  much  as  possible  to  maintain  the 
network.  If  you  don’t  have  competent  network  administrators,  the  project  is  going  to 
fail  [REF.  39:p.  41]. 

An  additional  management  issue  is  that  those  LAN  managers  who  can  successfully 
avoid  the  pitfalls  and  create  productive,  stable  LANs  are  in  high  demand.  The  job 
market  for  PC  LAN  managers  is  destined  to  grow  rapidly  and  the  talent  pool  is  quite 
small.  With  decisions  becoming  ever  more  difficult,  corporations  need  LAN  experts 
with  a  successful  track  record.  Promotions  and  attractive  offers  from  headhunters  will 
gradually  become  the  LAN  manager’s  standard  fare  [REF.  39:p.  41].  This  could  have  a 
detrimental  effect  on  the  effectiveness  of  the  PC  LAN,  as  successful  LAN  managers 
leave  inventory  management  for  higher  paying  jobs  just  managing  PC  LANs.  Taking  all 
the  various  factors  into  account,  the  installation  of  PC  LANs  is  still  black  magic.  The 
PC  LAN  has  evolved  a  great  deal  since  IT’S  inception,  but  it  has  yet  to  reached 
maturity.  The  installation  and  management  of  PC  LANs  is  still  filled  with  many  pitfalls 
and  headaches.  Choosing  a  PC  LAN  for  a  production  environment  is  still  very 
questionable  decision. 

Based  upon  the  above  discussion  of  the  technical  and  management  problems 
associated  with  personal  computers  on  a  token  ring  network,  there  was  sufficient 
justification  to  to  depart  from  ASO’s  planned  hardware  architecture.  Management  of 
the  PC  LAN  would  be  so  difficult  that  the  effective  implementation  of  a  DSS  would 
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not  be  possible.  It  was  decided  that  the  hardware  best  suited  to  provide  inventory 
manager’s  with  a  DSS  and  individual  workstations  would  be  a  minicomputer  based 
system.  Minicomputers  have  excellent  security,  their  operating  systems  are  not  limited 
by  RAM  or  partition  disk  size.  The  software  for  minicomputers  is  designed  to  operate 
in  a  distributed,  multi-user  environment,  the  files  are  managed  so  that  access  for 
authorized  users  is  unlimited  and  updates  are  logically  controlled.  The  performance  of 
the  minicomputer,  especially  when  configured  with  diskless  client  workstations,  is 
superior  to  any  PC  LAN  configuration.  When  the  issues  of  system  stability  and 
management  are  also  considered,  a  minicomputer  system  is  the  only  answer.  Figure  8  is 
a  part  of  a  connectivity  decision  chart  excerpted  from  PC  Magazine  [REF  65  J.  PC 
Magazine  is  mainly  concerned  with  PCs  on  various  LANs,  but  their  decision  chart  shows 
that  the  best  decision  when  you  do  not  have  a  large  investment  in  DOS  based  PCs  and 
do  have  a  heavy  data  load  is  to  consider  using  minicomputers. 

The  choice  of  which  minicomputer  to  use  was  narrowed  by  the  following 
constants: 

•  It  should  use  a  non-proprietary  operating  system. 

•  It  has  a  high  resolution,  19  inch  monochrome  display. 

•  It  would  work  with  the  selected  DSS  software. 

Hardware  to  fulfill  the  specified  parameters  was  available  from  several  manufacturers: 

•  International  Business  Machines  (IBM) 

•  Digital  Equipment  Corporation  (DEC) 

•  Sun  Micro  Systems  (SUN) 

Each  of  these  manufacturer’s  computers  uses  a  version  of  the  UNIX  operating  system. 
While  each  version  is  slightly  different,  they  all  support  the  DSS  software.  Each  of 
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Figure  8  PC  Magazine  Connectivity  Decision  Guide 


the  computers  supports  workstations  with  a  high  resolution,  19  inch  monochrome 


display.  All  the  workstations  are  linked  to  the  server  via  an  ethernet  using  the 


43 


Network  Files  Systems  (NFS)  protocol.  NFS  was  developed  by  SUN,  but  licensed  for 
a  minimal  fee  to  IBM  and  DEC.  It  has  become  the  industry  standard  for  ethernet 
connectivity. 

IBM  offers  the  RT  PC,  with  different  versions  acting  as  the  server  and  worksta¬ 
tion.  IBM’s  version  of  UNIX  is  called  AIX  .  DEC  offers  the  VAX  3600  as  the  server 
and  micro-VAX  2000  as  the  workstation.  DEC’S  version  of  UNIX  is  called  ULTRIX. 
SUN  offers  the  SUN  3/280  as  the  server  and  the  SUN  3/50  or  3/60  as  the  worksta¬ 
tion.  SUN’s  version  of  UNIX  is  called  "SUN  OS". 

Functionally  each  machine  offers  similar  performance,  capabilities  and  capacities. 
The  IBM  machine  v/as  not  selected  for  the  DSS  development  during  this  thesis  because 
version  2.0  of  AL1S  (The  selected  DSS  software)  was  not  yet  available  for  the  RT  PC 
when  the  hardware  was  procured.  The  reason  for  selecting  the  SUN  system  over  the 
DEC  was  that  the  Naval  Postgraduate  School  already  had  a  large  installed  base  of  SUN 
systems  and  could  provide  technical  and  repair  services  for  the  workstation  that  would 
be  procured  for  DSS  development.  For  a  large  scale  installation,  any  of  the  systems 
would  be  fully  functional.  The  ALIS  software  is  such  that  it  can  be  developed  on  one 
system  and  transported  to  a  different  system  without  conversion.  The  exportabilty 
provided  by  using  an  open  operating  system  supports  full  and  open  competition  and 
keeps  the  DoD  from  being  tied  into  a  single  vendor. 

The  following  hardware  was  procured  for  DSS  development: 

•  SUN  3/50  workstation  with  high  resolution,  19  inch  monochrome  display,  4mb 

RAM  and  ethernet  port. 

•  141  mb  fixed  disk  with  60  mb  1/4"  streaming  tape  device. 

•  QMS-PS  800  Postscript  laser  printer. 
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•  Zenith  data  systems  2400  baud  modem. 

This  hardware  fully  supported  the  DSS  software  development.  While  the  UNIX 
operating  system  has  a  reputation  for  not  being  user  friendly,  the  new  graphical  user 
interface  being  provided  by  SUN  called  Open  Look  has  removed  much  of  the  unfriendli¬ 
ness.  Open  Look  is  a  version  of  X-Windows.  X-Windows  was  developed  by  the 
Massachusetts  Institute  of  Technology  (MIT)  under  a  grant  from  IBM  and  has  become 
an  industry  standard.  DEC  and  IBM  both  offer  X-Windows. 

D.  SOFTWARE 

As  discussed  in  the  Chapter  2,  the  DSS  is  built  using  a  shell.  In  selecting  the  shell,  I 
wanted  a  highly  integrated  Office  Automation  package,  i.e.  one  that  provides  word 
processing,  spreadsheet,  database  management  and  a  macro  programming  language.  The 
software  packages  identified  as  possible  candidates  were: 

•  SmartWare,  by  Informix  Software,  Inc. 

•  Q-Office+,  by  Quadraton  System,  Inc. 

•  ALIS,  by  Applix,  Inc. 

•  Officepower,  by  Computer  Consoles,  Inc. 

•  R  Office*,  by  R  Systems,  Inc 

•  Uniplex  Advanced  Office  System,  by  Uniplex  Business  Software. 

To  become  a  possible  candidate,  the  software  had  to  run  on  a  Unix  based 
computer.  While  various  integrated  packages  like  IBM’s  "AS/400  office"  and  DEC’s 
"All-in- 1”  were  possible  candidates,  they  are  based  on  proprietary  operating  systems. 
Each  of  the  possible  software  packages  listed  above  can  operate  on  over  twenty 
different  UNIX  based  systems.  I  reviewed  each  of  packages  for  the  following  features: 
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•  Access  to  the  UICP  database  from  within  the  office  automation  software. 

•  Ability  to  import  a  subset  of  the  UICP  data  base  and  use  the  data  within  the 
office  automation  software  to  form  a  decision  support  system. 

•  A  user  interface  that  is  easy  to  understand  and  learn  which  complies  with  the 
Xerox  PARC  /  Open  View  interface  standard. 

•  Electronic  mail  which  can  be  transmitted  amongst  both  the  inventory  managers 
and  other  groups  and  organizations. 

•  Highly  integrated  office  automation  system  with  a  consistent  user  interface 
containing  word  processing,  spreadsheet,  data  base  and  a  macro  programming 
system  to  develop  the  DSS  with. 

After  studying  information,  manufacturers  and  computer  publications,  it  appeared 
that  SmartWare  and  ALIS  were  the  most  promising.  The  other  packages  either  did  not 
contain  a  spreadsheet  or  electronic  mail  or  both.  Additionally,  many  of  the  packages 
did  not  allow  for  a  total  integration  of  data  between  the  modules.  The  reason  ALIS 
was  selected  over  SmartWare  was  that  it  provided  two  key  features  that  SmartWare 
did  not.  ALIS  provides  a  graphical  user  interface  that  complies  with  the  Xerox  standard 
and  an  extensive  programming  language  that  allowed  control  of  both  the  integrated 
packages  and  the  UNIX  operating  system.  The  final  step  taken  before  selecting  ALIS, 

was  to  contact  ALIS  users  within  the  DoD^.  ALIS  was  highly  recommended  by  Mr. 

Dana  Brewer  of  the  Office  of  the  Secretary  of  Defense.  Appendix  B  contains  an 
in-depth  description  of  ALIS  and  its  various  features  and  configurations. 

This  thesis  document  was  created  using  ALIS.  The  thesis  is  a  compound 
document  containing  spreadsheet  and  graphic  editor  insets.  The  format  of  the 


8  The  prime  point  of  contact  was  the  Office  of  the  Secretary  of  Defense  which  has  a 
300  user  system.  Additionally  the  US  Air  Force  uses  ALIS  for  IT’S  Local  Office 
Network  System  (LONS).  LONS  is  presently  installed  at  several  US  Air  Fome  bases 
in  the  Eastern  United  States. 
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document  was  controlled  by  a  style  guide  and  printed  on  a  postscript  printer.  From 
receipt  of  the  ALIS  software,  I  was  productively  using  it  within  two  days  and  felt 
completely  competent  with  it  w'ithin  a  week.  It  has  performed  flawlessly  and  has 
provided  all  the  capabilities  advertised  by  Applix,  Inc. 
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IV.  UICP  DATA  ELEMENT  SELECTION 


A.  INTRODUCTION 

The  first  task  in  developing  the  IM  Workstation’s  DSS  was  to  identify  the  data 
elements  most  important  to  the  inventory  manager’s  work  and  to  find  out  how  the 
data  elements  are  being  used.  The  optimal  way  to  identify  the  data  elements  and  their 
uses  would  have  been  to  perform  a  structured  analysis.  The  structured  analysis  would 
then  result  in  a  physical  data  flow  diagram  showing  the  present  business  methodology. 
This  could  then  be  restructured  into  a  logical  data  flow  diagram  which  would  take  the 
present  system  and  transform  it  into  a  streamlined  view  of  the  business  which  could  be 
programed.  In  a  production  environment,  such  as  ASO,  completely  stopping  old  (and 
established)  ways  of  working  and  changing  to  a  completely  new  system  would  be 
unacceptable.  I  decided  to  follow  a  multi-staged  process: 

•  Determine  the  UICP  applications  and  data  elements  the  inventory  managers 
consider  necessary  to  perform  their  mission. 

•  Document  the  managers  actual  use  of  the  selected  information. 

•  Determine  how  to  import  the  selected  information  into  the  Decision  Support 
System  (DSS). 

•  Construct  a  DSS  based  upon  the  managers  requirements. 

This  chapter  will  discuss  the  first  two  steps  in  this  process.  The  subsequent  two 
chapters  will  discuss  data  extraction  and  the  building  of  the  DSS  modules. 

B.  APPLICATION  AND  DATA  ELEMENT  DETERMINATION 

The  most  critical  element  of  my  thesis  was  the  identification  of  the  UICP  applica¬ 
tions  and  data  elements  that  the  inventory  managers  use  to  support  their  daily  work 
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effort.  The  outstanding  cooperation  of  the  personnel  at  ASO  made  this  identification 
work  much  easier  than  I  first  anticipated. 

To  support  the  determination  of  the  data  elements  and  their  uses,  the  director  of 
Weapons  Management  identified  one  of  his  most  competent  branches,  WMB51,  to 
work  with  this  project.  The  branch  head  selected  his  seven  most  competent  and 
experienced  inventory  managers.  The  managers  were  asked  to  identify  the  A02  data 
products  they  used  on  a  regular  basis. 

If  they  need  the  information  on  a  regular  basis^  to  answer  a  phone  query,  to 
process  a  requisition  or  to  review  a  recommended  buy  they  should  identify  the  A02 
product  they  would  use.  From  the  choice  of  39  A02  products,  the  managers  selected 
the  ones  that  they  would  use  on  a  regular  basis.  While  each  manager  could  have 
selected  all  39  of  the  products,  they  only  picked  between  6  and  12  products.  The  mean 


Figure  9  A02  Products  Selected  by  Each  Inventory  Manager 


1  A  regular  basis  was  considered  to  be  at  least  once  a  week. 
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number  of  A02  products  chosen  was  8.5.  Figure  9  shows  the  A02  products  selected 
by  each  manager.  Figure  10  provides  a  graphical  display  of  the  selection  distribution. 
As  Figure  10  shows,  the  managers  actually  use  only  a  small  number  of  the  data 
products  available.  Secondly,  the  managers  were  in  agreement  as  to  which  products 
were  the  most  important.  The  managers  selected  six  high  usage  programs  that  they 
felt  were  vital  to  the  performance  of  their  jobs.  These  key  products  were  named,  AS, 

BK,  CD,  CL,  NA,  and  RS-.  They  actually  represent  the  heart  of  the  inventory 
management  process. 


Figure  10  A02  Products  Selected  by  7  ASO  Inventory  Managers 


~  Appendix  A  contains  a  definition  of  each  A02  product. 
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The  information  provided  by  these  A02  products  forms  the  basis  of  the 
inventor>'  manager’s  ability  to  answer  the  following  questions  on  a  daily  basis: 

•  What  stock  is  available  for  issue? 

•  What  stock  is  on  order,  and  when  is  delivery  expected? 

•  What  requisitions  are  backordered? 

•  What  is  the  status  of  a  specific  requisition? 

During  the  interviews,  the  inventory  managers  stated  that  they  usually  have  to 
use  two  or  more  of  the  A02  products  to  answer  any  of  the  above  questions.  The 
inventory  managers  said  that  the  process  of  retrieving  the  information  was  very  time 
consuming.  Furthermore,  they  said  that  the  only  way  to  work  with  the  data  was  to 
print  each  screen  from  the  current  IBM  3270  terminals  individually  and  place  the 
printouts  side  by  side  on  their  desks.  This  allows  them  to  correlate  the  data  from  one 
A02  program  with  that  of  another,  to  obtain  the  information  they  need. 

The  next  step  was  to  identify  those  data  elements  in  each  A02  product  which 
were  being  utrd  and  those  which  were  extraneous.  It  turned  out  that  only  a  very  few 
of  the  data  elements  from  each  report  were  used.  Inventory  managers  stated  that  many 
of  the  reports  could  be  reduced  in  sized  and  data  from  various  reports  combined  to 
better  fit  the  needs  of  the  managers. 

Sprague  and  Carlson’s  text.  Building  Effective  Decision  Support  Systems,  states 
that  ’’Almost  every  study  of  decision  making  and  DSS  indicates  that  decision  making 
involves  reducing  /  abstracting  from  large  amounts  of  data.  Data  reduction  involves 
sub-setting,  combination,  and  aggregation  of  records  and  fields  in  a  database."  [Ref. 
4 1  :p  99]  Therefore,  if  an  effective  DSS  was  to  be  constructed,  an  abstracting  of  data 
from  the  UICP  database  and  A02  products  was  required. 
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The  managers  were  asked  to  select  from  each  A02  product  the  data  elements 
(DENs)  they  used.  They  were  also  requested  to  identify  any  additional  data  elements 
that  are  not  part  of  a  selected  A02  product,  but  are  required  to  perform  their 
analysis.  The  managers  selected  1 10  data  elements.  Of  these,  50  were  selected  by  at 
least  four  of  the  seven  managers.  What  this  implies  is  that  the  managers  only  use  or 
need  1 10  of  the  3,992  data  elements  available  in  UICP.  Appendix  C  contains  a  listing  of 
the  110  data  elements  selected  and  the  A02  products  which  use  each  data  element.  This 
represents  2.7%  of  the  data  elements  in  the  UICP  database.  While  this  indicates  that  a 
very  low  percentage  of  the  database  is  being  used  by  the  inventory  managers,  many  of 
the  unselected  data  elements  are  required  for  other  functions.  These  data  elements  are 
used  to  compute  supporting  information,  provide  purchase  requirements  and  maintain 
provisioning  technical  data.  Additionally,  while  the  prime  mission  of  the  Aviation 
Supply  Office  is  inventory  management,  many  of  the  supporting  management  codes, 
such  as  procurement,  provisioning,  and  component  repair  management  make  use  of 
these  other  data  elements. 

In  addition  to  the  on-line  products,  information  is  provided  to  the  inventory 
managers  on  a  cyclic^  basis  in  the  form  of  several  printed  reports.  The  inventory 

managers  expressed  a  desire  to  have  this  information  on  line  as  part  of  the  DSS.  The 
reports  they  indicated  they  wanted  data  from  were  the  Consolidated  Stock  Status 
Report  (CSSR)  and  the  Supply  Demand  Review  (SDR)  report. 

3  The  interval  could  be  quarterly,  or  as  the  product  of  a  periodic  review  inventory 
model. 


V.  DATA  EXTRACTION 


A.  INTRODUCTION 

The  UICP  database,  resident  on  the  IBM  3090-400  mainframe,  is  a  complex  series 
of  on-line  data  files  and  off-line  tape  files.  To  modify  or  replace  the  present  A02 
products  would  involve  an  extensive  amount  of  reprogramming  and  the  associated 
database  integrity  checks  and  testing.  This  process  would  take  several  years  to  do 
properly.  The  best  approach  is  to  leave  the  A02  products  unchanged  and  extract  from 
the  UICP  database  only  that  information  required  by  the  IM  Workstation  to  perform 
day  to  day  functions.  By  limiting  the  number  of  active  interfaces  with  the  UICP 
database,  many  of  the  interface  problems  are  eliminated.  According  to  David  Alexander 
"a  DSS  does  not  replace  or  compete  with  other  systems;  instead,  it  extracts  from 
other  systems  the  information  that  is  essential  to  the  process  of  decision-making." 
[Ref.  7 :p  116]  This  chapter  will  discuss  the  methodology  used  to  extract  from  the 
UICP  database  data  elements  identified  by  the  inventory  managers  and  discussed  in  the 
previous  chapter.  The  COBAL  programs  to  extract  the  data  elements  from  UICP  were 
written  by  Paul  Rosen  of  ASO’s  planning  division.  He  was  assisted  by  Bill  Leanza  and 
Elmer  Nagrampa,  management  interns  from  the  Naval  Supply  Systems  Command 
(NAVSUP).  Mr.  Rosen  and  the  NAVSUP  interns  dealt  with  the  issue  of  extracting  the 
data  elements,  while  this  thesis  work  developed  the  minicomputer  software  to  use  the 
data  elements  once  they  were  downloaded  to  the  minicomputer. 

B.  DATA  ELEMENT  EXTRACTION 

The  majority  of  the  data  elements  identified  by  the  inventory  managers  were 
located  in  the  UICP  database  files  accessed  by  the  UICP  Supply  Demand  Review  model 
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(BIO).  This  model  reviews  stock  levels  and  computes  recommended  quantities  for 
procurement.  The  printed  output  of  this  model  contains  not  only  the  recommended 
procurement  quantities  but  also  a  large  amount  of  management  data.  The  management 
data  included  in  the  printed  output  contains  many  of  the  required  data  elements. 
Appendix  D  contains  the  COBAL  program  called  NSN5B,  that  extracts  the  data  from 
B10JX1  record  types  (D,  F,  H,  J,  L,  N,  P,  R,  T,  V,  and  Z)  in  the  UICP  database  and 
creates  thirteen  data  files  which  can  be  moved  to  the  IM  Workstation. 

The  NSN5B  program  was  difficult  to  write  because  the  structure  of  the  B10JX1 
record  was  not  know'n.  The  documentation  for  the  record’s  structure  was  incomplete 
and  out-dated.  The  key  to  performing  an  extract  was  finding  the  exact  file  location  of 
each  data  element.  To  build  a  complete  map  of  the  record’s  structure,  an  extensive 
amount  of  research  and  subsequent  effort  was  required.  The  various  information  then 
had  to  be  correlated  to  build  the  map.  Once  the  location  of  the  data  elements  within 
the  record  were  known,  the  programming  effort  continued  without  difficulty. 

The  NSN5B  program  first  opens  the  B10JX1  record  and  performs  a  subroutine 
which  extracts  information  for  only  those  stock  numbers  managed  by  WMB51  branch. 

This  extract  is  done  using  logistic  routing  codes  (LRC).1  NSN5B  then  goes  to  the 

specific  file  location  for  each  data  element  and  reads  that  data  element  into  working 
storage.  The  information  is  stored  and  referenced  by  it  DEN  number.  Upon  reading  all 
the  required  data  elements  for  each  stock  number,  the  information  is  written  to  the 
appropriate  file  for  later  transfer  to  the  minicomputer.  This  routine  continues  until 

*  The  logistic  routing  code  identifies  the  specific  inventory  manager  who  manages  a 
particular  item. 
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information  for  each  stock  number  has  been  extracted.  Then,  NSN5B  closes  B10JX1 
and  each  of  the  created  data  files.  The  information  in  the  data  files  is  then  manipulated 
to  ensure  each  record  is  properly  format  (e.g.;  currency  fields,  quantity  fields).  The 
data  file  Outfile4  called  contains  the  ready  and  not-ready  for  issue  stock  status 
information.  The  information  is  reorganized  so  that  it  presents,  for  each  reporting 
activity,  "ready  for  issue"  (RFI),  then  "not-ready  for  issue"  (NRFI)  and  finally  "all 
purpose  codes"  (pur-all)  stock  status  information  in  a  single  display  line.  Upon 
completion  of  this  routine,  NSN5B  is  finished  and  the  data  files  are  ready  to  be  down 
loaded. 

C.  DATA  FILE  STRUCTURE 

The  thirteen  data  files  u'hich  result  from  NSN5B  are  organized  to  correspond  to 
the  various  sections  of  the  NSN  Snapshot.  Ofilel,  Ofile2  and  Ofile3  contain  technical 
reference  data.  Ofile4  contains  the  current  stock  status  information.  Ofile5  contains 
material  due-in  from  contacts  information,  Ofile6  contains  planned  program  require¬ 
ments  data.  Ofile7  contains  alternate  national  item  identification  numbers  (NIINs) 
data.  Ofile8  contains  application  data.  Ofile9  contains  information  on  backordered 
requisitions.  OfilelO  contains  part  number  reference  data.  Ofilel  1  and  Ofilel2  contain 
reference  material  if  the  item  is  managed  by  a  non-Navy  activity.  Ofilel 3  is  a  support¬ 
ing  file  used  to  construct  Ofile4.  Appendix  E  contains  a  sample  listing  of  each  file  and 
Table  1  summarizes  them.  The  exact  placement  of  each  data  element  within  the  file  can 
be  read  from  the  program  listing  of  NSN5B  in  Appendix  D. 

The  reference  key  to  the  data  files  is  that  characters  1  to  9  of  each  line  represent 
the  NUN.  This  allow-s  the  data  from  the  different  data  files  to  be  correlated.  Data 
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Table  1  FILES  CREATED  BY  PROGRAM  NSN5B 

til*  Description  Type 

Ofllel  Technical  Reference  Data  81ngla  Field 

Ofll«2  Technical  Reference  Data  Single  Field 

Ofile3  Technical  Reference  Data  Single  Field 

Oflle4  Currant  Stock  Status  Repeating  Field 

0flle5  Due-in  From  Contract*  Repeating  Field 

OflleS  Planned  Program  Requirements  Repeating  Field 

Oflle7  Alternate  MUM  Data  Repeating  Field 

Ofile8  Application  Data  Repeating  Field 

Ofile9  Backordered  Requisitions  Data  Repeating  Field 

OfllelO  Part  Number  Reference  Data  Repeating  Field 

Ofilell  Non-Navy  Management  Data  Repeating  Field 

Ofllel2  Non-Navy  Management  Data  Repeating  Field 

Ofilal3  Temporary,  Builds  Ofila4  Repeating  Field 


files  like  Ofile4  have  multiple  lines  of  data  for  the  same  NUN.  The  program  reading 
the  data  file  can  tell  when  the  data  for  that  N11N  has  been  completely  read  when  the 
first  nine  characters  of  the  next  line  do  not  match  the  N1IN  being  worked  with.  This 
key  reference  system  allowed  variable  length  data  to  be  handled  in  the  same  simple 

method  used  for  fixed  length  data  files. 

D,  REQUISITION  DATA 

The  data  for  requisition  processing  is  pulled  straight  from  the  Document  Status 
File  (DSF).  Due  to  the  fixed  field  features  of  requisitions,  they  are  relatively  easy  to 
work  with.  A  subroutine  program  pulls  those  requisitions  from  the  file  that  match  the 
logistic  routing  codes  for  the  item  managers  in  WMB51.  The  resulting  requisitions  are 
passed  as  one  data  file  to  the  minicomputer.  The  files  are  then  read  and  used  by  the 
requisition  process  module. 


E.  CYCLIC  HISTORICAL  DATA 

Due  to  the  same  difficulties  experienced  when  NSN5B  was  written,  poor  or 
nonexistent  documentation  has  caused  the  extracting  of  historical  data  from  the  cyclic 
data  sheets  to  be  a  very  difficult  task.  Mr.  Rosen  and  the  NAVSUP  interns  are 
presently  working  to  solve  this  problem.  It  is  expected  that  by  early  January  1989, 
they  will  have  an  appropriate  extraction  program  ready. 


56 


VI.  DSS  CONSTRUCTION 


A.  INTRODUCTION 

This  chapter  will  discuss  the  how  the  data  elements  extracted  from  the  UICP 
database  and  how  the  office  automation  and  programming  features  of  ALIS  were  used 
to  create  the  DSS.  The  following  areas  will  be  discussed: 

•  Information  usage 

•  NSN  Snapshot  construction 

•  Inventory  management  menu  construction. 

•  NSN  Notebook  construction. 

•  Requisition  processing  construction. 

•  Cyclic  view  construction. 

•  Supply  demand  review  processing. 

•  Style  guides  and  office  automation. 

The  discussion  of  each  area  will  cover  the  major  functions  of  each  module  in  the  DSS. 
The  computer  programs  for  the  completed  modules  are  provided  in  the  appendices.  Due 
to  time  constraints,  the  requisition  processing,  cyclic  view,  and  supply  demand  review 
programs  were  not  completed  when  this  thesis  was  published. 

B.  INFORMATION  USAGE 

Following  the  determination  of  w'hich  A02  products,  data  elements  and  data  from 
printed  reports  were  most  important  to  the  inventory  managers,  an  understanding  of 
how  to  organize  this  information  was  needed.  Most  computer  implementations  take  the 
pre-computer,  manual  paper  system  and  copy  the  present  methods  and  reproduce  it 
with  a  computer  program.  Rather  than  take  this  approach,  the  following  groups  of 
functions  were  examined: 
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•  Answering  customers’  questions  when  they  call  for  the  status  of  a  requisition  or 
the  quantities  of  stock  on  hand. 

•  Using  historical  data  to  analyze  future  requirements. 

•  Processing  requisitions  for  stock  issue. 

•  Processing  supply  demand  review  outputs  from  the  UICP  computer  model  BIO  . 

•  Maintaining  miscellaneous  information  about  each  stock  number. 

•  Answering  correspondence,  preparing  buy  packages  and  general  office  automation 

The  NSN  Snapshot  was  designed  by  ASO  personnel  to  allow  them  to  answer 
customer  queries  rapidly,  assist  the  processing  of  requisitions  and  to  provide  a  uniform 
method  of  looking  at  stock  status.  The  NSN  Snapshot  is  intended  to  deal  with 
current  information.  To  supplement  the  NSN  Snapshot  and  provide  the  inventory 
manager  with  information  about  historical  patterns,  a  module  called  the  Cyclic  view  is 
being  designed.  The  Cyclic  view  presents  historical  data  taken  from  the  Consolidated 
Stock  Status  Report.  The  combination  of  NSN  Snapshot  and  Cyclic  view  information 
will  provide  a  basis  for  the  manager  to  analyze  the  recommended  buys  from  the  Supply 
Demand  Review  process.  With  the  extracted  data  elements  resident  in  the  DSS,  buy 
computations  can  be  done  by  the  item  managers  without  having  to  input  the  data  from 
printed  reports. 

To  allow  information  presently  kept  by  the  inventory  managers  on  ASO  730 
cards ^  to  be  maintained  in  a  uniform  manner,  the  NSN  Notebook  program  was  written. 
The  NSN  Notebook  is  intended  to  provide  a  consistent  repository  for  non-UICP 


*  Paper  record  cards  maintained  by  each  inventory  manager,  for  each  stock  number. 
They  contain  miscellaneous  information  not  kept  in  the  UICP  database  (ie  points  of 
contract). 
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database  information  that  is  required  by  the  inventory  managers.  Examples  of  the 
information  to  be  kept  in  the  NSN  Notebook  for  each  stock  number  are: 

•  Pending  stock  number  change  information. 

•  Contract  expedite  information. 

•  Points  of  contact. 

Not  only  does  the  NSN  Notebook  provide  a  consistent  method  for  maintaining  this 
type  of  information,  but  it  also  allows  all  members  of  the  branch  to  have  access  to  the 
information.  To  facilitate  the  uniform  processing  of  requisitions,  the  requisition 
processing  module  was  built.  An  additional  area  to  be  implemented  deals  with  the 
processing  Supply  Demand  Reviews  and  their  associated  buy  computations.  The 
following  sections  will  discuss  the  designing  and  programming  of  each  of  these  modules 
and  how-  they  are  used  to  implement  the  DSS. 

C.  NSN  SNAPSHOT  CONSTRUCTION 

The  NSN  Snapshot  was  designed  by  ASO  inventory  managers  to  give  them  the 
ability  to  rapidly  answer  customer  queries  and  provide  concise  management  information. 
The  NSN  Snapshot  has  its  information  displayed  in  seven  areas  or  views.  Figure  1 1 
shows  a  sample  NSN  Snapshot.  The  top  view  contains  the  provisioning  and  technical 
data  pertaining  to  each  stock  number.  It  contains  such  information  as  the  name  of  the 
item,  standard  price,  replacement  price,  part  number  reference  and  wear  out  rate.  The 
purpose  of  the  first  view  is  to  give  the  inventory  manager,  in  one  area,  the  item’s  key 
management  information.  This  key  information  includes  the  value  of  the  item,  how  it  is 
managed  by  the  UICP  database,  and  whether  it  is  a  repairable  or  consumable.  View  2 
provides  the  current  observations  of  quarterly  demand,  and  other  related  information. 
This  information  gives  the  inventory  manager  an  insight  into  the  amount  of  demand 
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the  pan  is  presently  experiencing,  how  many  parts  are  required  but  cannot  be  presently 
provided  and  how  many  parts  are  due  in  from  the  manufacturers.  View  3  provides 
application  data.  Application  data  tells  the  inventory  manager  what  equipment  uses  this 
specific  part  and  in  what  quantities. 

View  4  provides  a  listing  of  parts  by  geographical  location  and  their  associated 
condition  (ready  for  issue,  not  ready  for  issue  but  in  repair,  or  not  ready  for  issue  and 
awaiting  repair).  This  view  is  referenced  on  the  NSN  Snapshot  as  PTAS  Data.  The 
name  PTAS  comes  from  the  command  for  the  original  retrieval  program  that  was 
accessed  from  a  tty  device^.  The  inventory  managers  wanted  the  data  arranged  across 

one  line  to  make  it  easy  to  work  with.  The  present  A02  program  design  requires  a 
separate  A02  product  to  provide  the  data  associated  with  each  column  of  the  PTAS 
data.  The  way  the  PTAS  data  is  presented  in  the  snapshot  makes  it  much  easier  to 
work  with  than  the  dissimilar  paper  outputs  from  A02.  View  5  provides  information 
on  material  which  is  due  in  from  manufacturers,  including  the  planned  delivery  date  to 
the  stock  point.  View  6  informs  the  inventory  manager  of  any  requisition  for  the  item 
that  have  been  placed  in  a  backordered  status  awaiting  material  delivery.  The  last  view, 
view  7,  provides  the  inventory  manager  with  information  on  planned  program 
requirements.  This  allows  him  to  easily  see  what  material  will  be  requested  in  future 
months,  so  he  can  ensure  that  it  is  available  when  required. 

^  If  the  manager  wanted  to  know  the  status  of  ready  for  issue  parts  they  would 
input  "PTAS!RFI!ALL!001231234"  on  the  tty  and  the  system  would  return  a 
printout  that  was  very  similar  to  Figure  1. 


As  shown  by  Figure  1 1 ,  the  NSN  Snapshot  is  a  long  document.  To  allow  the 
inventory  manager  to  view  the  information,  the  ALIS  environment  presents  the 
document  in  a  w'indow'.  The  w'indow  can  be  scrolled  to  reveal  specific  areas  of  the  NSN 
Snapshot  or  exploded  to  show  it  as  one  window  making  use  of  the  complete  19  inch 
display  area.  Overall  the  NSN  Snapshot  provides  clear  and  concise  management 
information  for  each  stock  number.  It  provides  the  inventory  managers  with  the  data 
they  need  to  properly  manage  an  item  and  support  customer  requests. 

The  NSN  Snapshot  is  the  key  element  of  the  IM  Workstation  for  the  inventory 
mar.agers  DSS.  While  on  the  surface  the  NSN  Snapshot  might  appear  as  only  a  clean 
way  to  present  data  on  the  screen,  it  actually  represents  much  more.  By  having  the 
information  presented  in  a  well  organized  manner,  it  actually  influences  how  the 
inventory  managers  perform  their  work.  In  many  cases,  if  the  inventory  managers 
needs  today  the  information  which  will  be  contained  in  the  NSN  Snapshot  he  would 
have  to  perform  extracts  from  six  A02  products.  Not  only  is  this  process  time 
consuming  and  tedious,  but  there  is  no  guarantee  that  the  inventory  manager  will  make 
the  effort  to  obtain  all  six  A02  products.  The  inventory  manager  might  use  old 
printouts  or  try  to  recall  the  information  from  his  or  her  own  memory.  This  could 
lead  to  an  improper  decision  being  made  because  the  it  was  based  on  partial  informa¬ 
tion.  The  present  failing  of  the  UICP  database  is  not  the  quality  of  the  database  or  its 
models,  but  rather  the  difficulty  of  extracting  and  working  with  the  data.  Therefore, 
a  main  feature  of  the  NSN  Snapshot  is  that  it  will  make  the  UICP  database  accessible. 
The  value  of  the  information  from  UICP  will  be  further  aided  by  organizing  the  data  in 
a  logical  manner  which  will  exp  1  te  the  decision  making  process. 
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Figure  1 1  Sample  NSN  Snapshot  Display  (Page  2) 


63 


Appendix  F  shows  the  NSN  Snapshot  w  ith  the  DEN  numbers  inserted  in  the  place  of 
the  data. 

The  NSN  Snapshot  is  actually  an  ALIS  compound  document.  The  view  presented 
to  the  inventory  manager  is  a  document  composer  window.  The  data  presented  is 
actually  from  a  spreadsheet.  Figure  12  shows  how  the  document  and  spreadsheet  are 
integrated  together. 
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Figure  12  Compound  Document,  NSN  Snapshot 
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To  create  the  NSN  Snapshot  the  following  steps  are  used: 

•  Program  NSN5B  is  run  on  the  IBM  3090.  (1  am,  nightly) 

•  The  NSN5B  data  files  are  transferred  from  the  IBM  3090  to  the  Sun  3/160 
server.  (2  am,  nightly) 

•  The  Sun  3/160  executes  a  batch  program  that  logs  in  a  phantom  user  on  the 
server.  The  phantom  user  enters  ALIS.  (2:30  am,  nightly) 

•  As  the  phantom  enters  ALIS,  the  login  macro  is  executed.  This  macro  builds  or 
updates  the  NSN  Snapshot  as  appropriate  and  then  logs  out  the  phantom  user. 

Figure  13  provides  a  detailed  flow  chart  of  the  actual  thought  process  and  edit  checks 

of  the  phantom  user’s  login  macro.  A  separate  NSN  Snapshot  is  created  for  each  stock 

number.  The  NSN  Snapshots  are  filed,  by  NIIN  (01-123-1234),  in  a  central  file  area. 

The  NSN  Snapshots  are  accessible  on  a  read  only  basis  to  the  inventory  managers. 

Appendix  G  contains  the  login  macro  command  document.  When  the  phantom  user  has 

finished,  the  NSN  Snapshots  are  located  in  a  central  filing  area.  From  the  central  filing 

location,  the  NSN  Snapshot  can  then  be  accessed  on  a  read  only  basis  by  the  inventory 

manager.  When  the  inventory  manager  calls  up  the  NSN  Snapshot  for  a  specific  stock 

number,  he  or  she  is  actually  receiving  a  compound  document  inset  with  a  live 

spreadsheet.  This  live  spreadsheet  could  then  be  used  to  support  the  processing  of 

Supply  Demand  Reviews.  A  section  in  the  spreadsheet  could  be  added  that  makes  use  of 

NSN  Snapshot  data  to  perform  buy  calculations. 
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Figure  13  NSN  Snapshot  Construction  (page  2) 
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Figure  13  NSN  Snapshot  Construction  (page  3) 
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Figure  13  NSN  Snapshot  Construction  (page  4) 


D.  INVENTORY  MANAGEMENT  MENU  CONSTRUCTION 

To  make  the  DSS  easier  to  use,  a  special  inventory  management  menu  was 
constructed.  It  allows  the  inventory  manager  to  rapidly  access  inventory  management 
data.  When  the  inventory  manager  types  the  key  sequence  <Command  Key>,  "M"  the 
"Inventory  Management"  menu  appears.  It  offers  the  choices  of: 

•  NSN  Snapshot 

•  Requisition  Processing 

•  NSN  Notebook 

•  Cyclic  View 

Figure  14  shows  how  the  menu  appears  to  the  inventory  manager. 
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Figure  14  Inventory  Management  Menu 

After  the  menu  appears,  the  inventory  manager  types  the  key  letter,  or  clicks  on  the 
circled  letter  with  the  mouse.  A  window  then  appears  requesting  the  stock  number  of 
the  item  of  interest.  In  the  case  of  the  NSN  Snapshot,  the  program  changes  the 
directory  to  the  shared  library  and  extracts  the  NSN  Snapshot  for  the  item  requested. 
The  program  is  now  completed  and  the  inventory  manager  has  the  NSN  Snapshot  for 
the  requested  stock  number  in  an  open  window.  The  inventory  manager  can  then  work 
with  the  requested  NSN  Snapshot  or  request  additional  NSN  Snapshots  for  other 
stock  numbers.  The  window  can  also  be  set  aside  (as  an  icon)  for  future  use.  A 
maximum  of  20  windows  can  be  open  on  the  ALIS  desktop  at  a  time.  Appendix  H 
contains  the  various  macros  used  to  build  the  Inventory  Management  Menu. 


E.  NSN  Notebook 


Miscellaneous  information  like  pending  technical  changes  or  details  of  a  contract 
expedite  action  is  maintained  by  the  inventory  managers  in  an  ad  hoc  manner.  In  many 
cases,  the  information  is  kept  on  an  intermittent  basis.  Additionally,  a  standard  format 
for  recording  the  information  onto  the  730  cards  does  not  exist.  The  information  is 
lost  to  his  or  her  fellow  workers,  when  the  inventory  manager  is  not  available,  because 
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the  paper  records  are  kept  as  a  personal  notebook.  The  inventory  managers  stated  that 
this  information  needs  to  be  available  to  all  the  members  of  the  inventory  manager’s 
team  and  his  or  her  supervisors. 

The  NSN  Notebook  was  designed  to  replace  the  paper  records  that  the  inventory 
managers  are  presently  keeping.  The  NSN  Notebook  provides  inventor)'  managers  with 
a  consistent  method  of  storing  and  retrieving  miscellaneous  management  information. 
The  NSN  Notebook  is  also  an  element  of  the  DSS.  By  providing  convenient,  fill  in  the 
blank  menus,  the  inventory  manager  has  an  easy  way  of  recording  the  information.  The 
fill  in  the  blank  menu  provides  a  standardized  method  of  gathering  data.  By  providing 

prompts  like:  (Contract  Number: _ )  the  inventory  manager  is  reminded  that 

this  information  is  valuable  and  needs  to  be  saved.  Therefore  the  information  is  saved 
in  a  consistent  manner,  and  because  it  is  in  a  central  file,  the  information  is  accessible 
to  all  members  of  the  management  group. 

When  the  NSN  Notebook  is  selected  from  the  Inventory  Management  Menu,  the 
inventory  manager  is  prompted  to  enter  the  NUN  for  the  he  wishes  to  work  with. 
Next  the  inventory  manager  is  offered  the  choice  of  nine  NSN  Notebook  functions 
such  as  viewing  the  Notebook  data  or  entering  new  data  for  the  NUN.  Figure  15 
shows  the  notebook  input  selection  menu  and  the  various  input  menus. 
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Figure  15  NSN  Notebook  Menus  (Page  1) 


Figure  15  NSN  Notebook  Menus  (Page  3) 


F.  REQUISITION  PROCESSING 

At  the  time  of  the  writing  of  this  thesis,  the  final  elements  of  the  requisition 
processing  flow  chan  were  not  completed.  The  data  manipulation  elements  are  ready, 
only  the  work  on  the  decision  matrix  needs  to  be  completed.  When  it  is  finished  in 
January  1989,  the  decision  matrix  will  provide  the  decision  rules  that  apply  to  each 
type  of  requisition. 
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Requisition  processing  will  be  handled  in  the  following  manner: 


Requisitions  are  received  by  the  IBM  3090. 

Using  the  LRC,  requisitions  for  WMB51  will  be  identified  and  transferred 
to  the  Sun  3/160. 

Upon  receipt  of  the  requisition,  the  UNIX  operating  system  will  activate 
the  phantom  user  account  assigned  for  requisition  processing. 

The  phantom  user  will  read  the  file  for  each  requisition.  The  file  will  be 
moved  into  a  spreadsheet.  The  method  is  similar  to  the  one  used  in  the  NSN 
Snapshot  process. 

The  phantom  user  then  runs  a  macro  which  will  save  the  spreadsheet  in  the 
central  filing  area  and  send  a  message  to  the  appropriate  inventory  manager 
and  his/her  supervisor  that  a  requisition  needs  to  be  processed. 

When  the  inventory  manager  selects  the  requisition  processing  option  from 
the  Inventory  Management  Menu,  he  will  be  presented  with  a  list  of  the 
requisitions  for  his  LRC  that  need  to  be  processed. 

The  inventory  manager  then  selects  the  requisition  he  wishes  to  process. 

A  view  of  the  requisition  will  appear  in  a  window.  The  NSN  Snapshot  for 
the  stock  number  being  requested  will  appear  in  another  window.  A  third 

window  will  contain  a  dialog  box-3  which  will  use  a  macro  which  is  based 
upon  the  decision  matrix  to  assist  the  inventory  manager  in  properly 
handling  the  requisition. 

The  dialog  boxes  will  present  the  inventory  manager  with  choices.  After 
each  choice  a  new  dialog  box  will  appear.  The  program  continues  on  until 
another  decision  is  required. 

After  the  decision  making  phase  of  the  macro  has  been  completed,  the 
macro  will  format  a  file.  The  file  will  contain  the  80  card  column  image  the 
data  entry  clerk  would  have  entered  into  the  IBM  3090.  This  file  records 
the  inventory  managers  decisions  concerning  the  requisition. 

The  file  is  then  transferred  to  the  IBM  3090  and  placed  in  the  batch  queue 
for  UICP.  The  queue  is  read  into  a  UICP  program  which  will  issue  a 
shipment  order  and  will  issue  a  requisition  status  message  to  the  requisi- 
tioner  based  upon  the  80  card  column  image. 

The  macro  then  deletes  the  requisition  from  the  DSS’s  central  file. 

The  inventory  manager  is  then  told  if  additional  requisitions  need  to  be 
processed  and,  if  there  are,  the  inventory  manager  is  asked  if  he  or  she 
wishes  to  continue  processing  requisitions  Based  upon  the  response  the 
macro  is  re-executed  or  exited. 


3  A  menu  which  offers  the  user  several  possible  choices  and  asked  him  or  her  to 
select  one. 
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This  DSS  macro  provides  a  consistent  method  for  processing  requisitions. 
Additionally,  because  the  data  is  transmitted  directly  from  the  minicomputer  to  the 
mainframe,  the  number  of  data  input  errors  is  reduced.  The  requisition  processing 
module  will  expedite  the  requisition  processing  process,  provide  a  more  consistent 
method  of  acting  upon  the  requisition  and  reduce  the  chances  of  data  entry  errors. 

G.  CYCLIC  VIEW 

The  Cyclic  View  will  provide  the  inventory  manager  with  historical  data  presently 
given  on  the  consolidated  stock  status  report  (CSSR).  This  information  allows  the 
manager  to  look  at  past  demand  trends  to  gauge  whether  a  sudden  increase  or  decrease 
in  demand  is  due  to  a  single  aberration  or  is  happening  on  a  recurring  basis.  This 
historical  information  needs  to  be  considered  as  part  of  any  future  buy  computations. 
The  cyclic  view  will  take  data  elements  from  the  UICP  database  and  copy  them  into  the 
NSN  snapshot  spreadsheet.  A  separate  aiea  of  the  spreadsheet  for  the  Cyclic  View  will 
be  maintained.  When  the  Inventory  Manager  selects  the  Cyclic  View  from  the 
Inventory  Management  Menu  he  or  she  will  be  presented  with  a  compound  document, 
inset  with  the  spreadsheet  containing  the  Cyclic  View.  Additionally  a  graph  showing 
the  historical  demand  trends  for  the  item  will  be  available.  The  COBOL  program  to 
extract  the  required  data  elements  is  presently  being  written  by  Mr.  Rosen  and  the 
N'AVSL'P  interns.  It  is  expected  that  the  COBAL  program  and  the  ALIS  macro  will  be 
completed  in  March  1989. 
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H.  SUPPLY  DEMAND  REVIEW 

The  UICP  model  BIO  (Supply  Demand  Review)  provides  recommendations  for 
quantities  of  an  item  to  buy.  Presently  the  recommendations  are  printed  and  delivered 
to  the  inventory  manager  along  with  various  management  data.  The  manager  then 
reviews  the  recommendations,  modifies  parameters  he  or  she  does  not  agree  with, 
recomputes  the  quantity  to  procure  and  prepares  a  procurement  package  that  is 
forwarded  to  the  procurement  section.  The  Supply  Demand  Review  processing  module 
will  receive  the  recommendations  from  the  mainframe  and  display  the  recommendations 
for  ihe  INI’s  review.  The  program  will  then  recompute  a  new'  procurement  quantity 
using  data  elements  present  in  the  NSN  Snapshot  spreadsheet  and  then  prepare  a  "buy 
package".  This  module  is  scheduled  to  be  finished  in  February'  1989. 

I .  STYLE  GLIDES  AND  OFFICE  AUTOMATION 

ALIS  provides  the  ability  to  use  style  guides.  Style  guides  are  blank  documents, 
spreadsheets,  graphics  and  databases  that  have  certain  parameters  predefined.  When  the 
inventory  manager  wants  to  create  a  letter  for  official  correspondence,  he  or  she  will 
select  the  "Create  a  document"  choice  from  the  main  menu  and  ask  for  the  appropriate 
style  guide.  When  the  document  appeared,  it  would  be  in  the  proper  format  and  the 
cursor  positioned  such  that  he/she  is  prompted  to  provided  information  that  is  needed 
for  the  headings.  This  same  method  could  be  used  with  spreadsheets  to  compute  initial 
procurement  quantities.  The  inventory  manager  would  be  prompted  for  various 
information  w-hich  w-ould  be  used  for  the  computation. 

Today  much  of  the  work  done  by  the  inventory  manager  is  handled  in  an 
independent  manner  and  enforcing  standards  is  difficult.  The  style  glides  will  help  to 
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ensure  that  the  standards  are  followed.  The  consistency  of  computations  done  by 
personnel  within  the  branch,  and  the  consistency  of  the  formats  of  written  messages 
and  correspondence  from  the  branch  can  also  be  improved  through  the  use  of  style 
guides.  This  subtle  assistance  makes  the  style  guide  part  the  DSS.  If  the  administrative 
load  on  the  inventory  managers  can  be  reduced,  their  overall  productivity,  and  time 
spent  actively  managing  items,  can  be  increased. 
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VD.  SUMMARY,  CONCLUSIONS  AND  RECOMMENDATIONS 
A.  SUMMARY 

The  primary  goal  of  this  thesis  was  to  develop  a  workstation  designed  to  assist  the 
inventory  manager  in  performing  his  or  her  work  in  a  more  efficient  manner.  By 
presenting  UICP  data  to  the  item  manager  in  a  well  designed,  consistent  manner,  the 
potential  exists  for  the  inventory'  manager  to  work  more  efficiently.  A  major  element 
in  the  presentation  of  the  UICP  data  on  the  inventory  manager’s  workstation  is  the 
decision  support  system. 

Working  closely  with  the  inventory  managers  from  ASO’s  Code  WMB51,  the 
identification  of  the  UICP  data  they  need  to  perform  their  work  was  accomplished.  By 
listening  closely  to  inventory  manager’s  requirements  and  how  the  inventory  manager’s 
would  like  to  see  the  UICP  information  displayed,  the  development  of  an  IM  Worksta¬ 
tion  that  represents  their  heuristics  was  possible. 

Using  the  hardware  and  software  procured  specifically  for  this  thesis  and  the 
heuristics  provided  by  the  inventory  managers  a  sample  IM  Workstation  was  developed. 
This  thesis  has  demonstrated  that  an  IM  Workstation  can  be  constructed.  As  a 
consequence  a  prototype  16  user  system  for  WMB51  is  now  being  contracted  for. 

The  sample  workstation  was  tested  by  the  inventory  managers  of  the  WMB51 
branch.  The  functions  tested,  in  addition  to  the  office  automation  features  inherent  to 
ALIS,  were: 

•  Inventory  Management  Menu 

•  NSN  Snapshot 

•  NSN  Notebook 
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•  Sample  requisition  processing  screen 

•  Sample  style  guides  for  official  letters  and  naval  messages 

The  inventory  managers,  after  a  demonstration  of  workstation,  were  allowed  to  work 
with  the  various  functions.  After  becoming  familiar  with  the  mouse  and  the  windowed 
environment  provided  by  ALIS  on  a  SUN  workstation,  the  inventory  managers  didn’t 
experience  any  difficulty  using  the  various  functions.  They  expressed  surprise  that 
snapshot  and  notebook  they  had  help  designed,  on  paper,  could  be  transformed  to  a 
computerized  system.  The  inventory  managers  were  enthusiastic  with  the  sample  system 
for  both  the  custom  functions,  and  the  general  office  automation  provided  by  ALIS. 
The  unanimous  feeling  was  that  the  IM  Workstation  would  greatly  improve  the 
efficiency  and  quality  of  life  for  inventory  managers  and  they  were  anxious  to  receive 
the  prototype  system. 

The  perception  by  the  inventory  manager  was  that  the  DSS  was  only  an  additional 
option,  like  the  spreadsheet,  and  not  actually  a  way  to  shape  their  actions  in  consistent 
manner.  This  perception  was  gained  because  the  inventory  manager’s  felt  that  the  IM 
Workstation  was  their  system,  which  it  is.  This  thesis  facilitated  the  inventory 
manager’s  desires  and  made  them  into  a  workable  system.  The  inventory  managers  are 
a  very  intelligent  (and  computer  literate)  group  of  people.  They  had  an  image  of  what 
they  were  looking  for  in  a  computerized  system,  how  it  could  improve  their  efficiency 
and  what  they  could  do  with  the  UICP  system  given  the  proper  tools.  Once  they 
understood  what  a  possible  IM  Workstation  could  do,  they  provided  a  very  detailed  list 
of  requirements. 
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B.  CONCLUSIONS 


The  IM  Workstation,  even  in  the  form  of  the  sample  system,  shows  that  a  DSS  to 
support  inventory  management  is  possible.  The  fact  that  the  inventory  managers  could 
have  such  a  constructive  part  in  the  development  shows  that  previous  methods  of 
developing  computerized  systems  in  a  vacuum,  with  little  or  no  user  involvement,  have 
been  surpassed. 

The  extended  language  facility  (ELF)  of  ALIS  provides  an  easy  to  learn  and  use 
programming  tool.  Programmers,  using  the  ELF  facility,  would  be  responsive  to  the 
needs  of  the  inventory  managers,  providing  a  rapid  response  to  changing  situations. 
The  programmers  would  most  probably  be  computer  literate  inventory  managers  under 
the  guidance  of  a  trained  management  information  specialist. 

The  SUN  Microsystems  hardware  selected  to  develop  the  sample  system  was  only 
one  of  many  possible  hardware  solutions.  Because  the  core  software,  ALIS,  will 
operate  on  over  20  different  computer  systems,  the  system  will  transportable.  With 
the  IM  Workstation,  all  the  hardware  can  be  competitively  procured,  removing  the 
barrier  normally  experienced  when  a  system  is  procured  sole  source. 

This  thesis  shows  that  a  complex  system  like  UICP  can  be  made  user  friendly  and 
more  effective  use  made  of  its  information.  Additionally,  it  shows  that  the  quality  of 
life  for  inventory  managers  can  be  improved,  while  increasing  their  efficiency.  A 
system  like  this  or  something  equivalent  to  it  is  needed  as  soon  as  possible  by  the 
inventory  managers. 
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C.  RECOMMENDATIONS 


Now  that  a  sample  system  has  been  developed  and  a  prototype  system  is  being 
contracted  for  WMB51,  the  following  functions  discussed  in  Chapter  six  need  to  be 
finished: 

•  Additional  error  checking  sub-routines  for  the  programs  already  written. 

•  Requisition  processing 

•  Cyclic  view 

•  Supply  demand  review  (SDR)  processing 

•  Additional  style  guides  for  documents,  spreadsheets  and  database. 

Additional  functions  that  would  add  additional  value  to  the  IM  Workstation,  but  need 
to  be  explored  are: 

•  Expert  systems  to  assist  the  decision  making  process. 

•  Scanning  of  contracts  to  be  optically  stored  for  easy  retrieval. 

•  A  system  to  produce  requests  for  proposals  (RFPs)  and  contracts. 

•  A  consolidated  inventory  management  and  contracting  system. 

•  A  distributed  database  system,  using  the  same  database  software  on  each 
computer  level,  to  allow  transparent  sharing  of  data  and  process  sharing. 
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APPENDIX  A 


PROGRAM 

AS 

BA 

BB 

BC 

BD 

BE 

BF 

BJ 

BK 

BM 

CB 

CD 


UICP  REAL  TIME  RETRIEVAL  (A02)  PROGRAM  DESCRIPTIONS  1 

DESCRIPTION 

PROVIDES  ITEM  STOCK  STATUS 

PROVIDES  ITEM  INFORMATION  FROM  THE  VARIOUS  SEGMENTS  OF 
THE  MDF,  PSI,  TRF 

PROVIDES  FSCM/REFERENCE  NUMBER  TO  STOCK  NUMBER  CROSS- 
REFERENCE  INFORMATION 

PROVIDES  DATA  FROM  THE  CASREP  REQUISITION  FILE 

PROVIDES  PRESERVATION,  PACKAGING,  TRANSPORTATION  AND 
COGNIZANCE  DATA 

PROVIDES  SUPPLY  ITEM  TECHNICAL  DATA  PERTINENT  TO  PROCURE¬ 
MENT  REFERRALS  OR  REQUIRED  ITEM  MANAGEMENT  DATA  FROM 
THE  SPECIFIED  APPLICATION  ENTRY 

PROVIDES  SUPPLY  ITEM  TECHNICAL  PROCUREMENT  DATA 

PROVIDES  DATA  FOR  UP  TO  ANY  TEN  DATA  ELEMENT  NUMBERS 
(DEN)  AND  UP  TO  ANY  TEN  STOCK  NUMBERS  IN  THE  MDF,  PSI,  TRF 
OR  ONF 

PROVIDES  DATA  NECESSARY  FOR  TECHNICAL  ANALYSIS  PERTINENT 
TO  THE  PROCUREMENT  OF  AN  ITEM 

PROVIDES  DATA  FROM  THE  MATERIAL  RETURN  PROGRAM  SUS¬ 
PENSE  FILE  (MRP) 

PROVIDES  DATA  CONTAINED  IN  THE  CHANGE  NOTICE  SUSPENSE 
FILE  /  EFFECTIVE  DATE  SUSPENSE  FILE 

PROVIDES  DATA  FROM  THE  BACKORDER  FINDER  FILE  (BOF) 


^  Actual  help  screen  from  online  A02  retrival  program,  presentation  edited  for 
printed  clarity. 


CH  PROVIDES  DATA  FROM  THE  PLANNED  PROGRAM  REQUIREMENTS 

FILE  (PPR)  FOR  A  SPECIFIC  ITEM  OF  SUPPLY 

CL  PROVIDES  DATA  FROM  THE  DUE-IN/DUE  OUT  FILE  (DDF) 

DA  PROVIDES  DATA  FROM  THE  REPAIRABLES  MANAGEMENT  FILE  (RMF) 

DB  PROVIDES  DATA  FROM  THE  REPAIRABLE  EVENTS  FILE  (REF) 

DC  INPUT  BATCH  RETRIEVAL  REQUESTS  TO  A 1 OAX 

DE  PROVIDES  CARCASS  TRACKING  RECORD  TYPE  "C"  DATA  FROM  THE 

CARCASS  TRACKING  RECORDS  FILE  (CTR) 

DF  INPUT  BATCH  REQUEST  TO  PROGRAM  B35UV  (CARCASS  TRACKING 

RECORDS  NUN  RETRIEVAL) 

DJ  PROVIDES  RETRIEVAL  OF  UP  TO  TEN  DATA  ELEMENT  NUMBERS 

(DEN)  FOR  UP  TO  ANY  TEN  REPARABLES  MANAGEMENT  FILE  (RMF) 
RECORDS. 

EF  PROVIDES  STOCK  NUMBER  CROSS-REFERENCE  DATA  FOR  UP  TO 

EIGHT  FSCM  /  REFERENCE  NUMBERS 

KQ  PROVIDES  USAGE  ACTIVITY  RATES,  STATISTICS,  AND  RETAIL 

REQUIREMENTS  INFORMATION  DATA  FROM  THE  AVIATION  RETAIL 
MANAGEMENT  FILE  (ARM) 

MB  PROVIDES  DATA  FROM  THE  INDIVIDUAL  COMPONENT  REPAIR  LIST 

FILE  (ICR) 

NA  PROVIDES  DATA  FROM  THE  CONTRACT  STATUS  FILE  (CSF) 

NB  PROVIDES  PURCHASE  WORKSHEET  DATA  FROM  THE  CONTRACT 

STATUS  FILE  (CSF) 

ND  PROVIDES  DATA  FROM  THE  SUPPLIERS  DATA  FILE  (SDF) 

OU  PROVIDES  THE  NAVYS  ORDER  OF  USE  FOR  DOD  INTERCHANGEABLE 

AND  SUBSTITUTABLE  FAMILYS  WHERE  THE  NAVY  IS  THE  PRIMARY 
INVENTORY  CONTROL  ACTIVITY 

RS  PROVIDES  DOCUMENT  STATUS  FILE  (DSF)  DATA  FOR  A  SPECIFIED 

DOCUMENT  NUMBER 

WA  PROVIDES  OPTION  TAILORED  WEAPONS  SYSTEMS  FILE  (WSF)  DATA 
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WB  PROVIDES  DATA  FOR  UP  TO  TEN  NEXT  HIGHER  ASSEMBLIES  (NHA) 

FOR  UP  TO  ANY  TEN  APLS,  AELS,  OR  EQUIPMENT  MODEL  CODES 

WC  PROVIDES  APPLICATION  DATA  AND  ALLOWANCE  LIST  DATA  FOR  A 

SPECIFIC  STOCK  NUMBER 

WG  PROVIDES  WSF  NEXT  LOWER  ASSEMBLY  CHAIN  EXTRACT  DOWN  TO 

FOUR  LEVELS  OF  INDENTURE 

WJ  PROVIDES  UP  TO  ANY  TEN  NON-REPETITIVE  DATA  ELEMENTS  FOR 

UP  TO  ANY  TEN  WEAPONS  SYSTEMS  FILE  (WSF)  LEVEL  A,  B,  OR  C 
PRIMARY  RECORDS 

WK  PROVIDES  UP  TO  ANY  TEN  NON-REPETITIVE  DATA  ELEMANTS  FOR 
UP  TO  ANY  TEN  RECORD  IDENTIFICATION  NUMBERS  (RIN)  IN  THE 
WEAPONS  SYSTEMS  FILE  (WSF) 

WQ  INPUT  BATCH  RETRIEVAL  REQUESTS  TO  WEAPONS  SYSTEMS  FILE 
PROGRAM  A10EX 

YA  PROVIDES  WEAPONS  SYSTEMS  FILE  (WSF)  PROGRAM  WA  DATA 

WITH  A  NOMENCLATURE  INPUT.  NOMENCLATURE  IS  CROSSED  TO  A 
WSF  KEY  IN  THE  NOMENCLATURE  TO  RIC  FILE  (NRF) 

YC  PROVIDES  PART  /  EQUIPMENT  APPLICATION  /  POPULATION  DATA. 

YE  PROVIDES  DATA  FROM  THE  MDF,  PSI,  TRF  AND  WSF  WHICH  IS 

NECESSARY  FOR  THE  MANAGEMENT  OF  THE  SHIPBOARD  EQUIP¬ 
MENT  CONFIGURATION  ACCOUNTING  SYSTEM  (SECAS) 

YG  PROVIDES  DATA  FROM  THE  NOMENCLATURE  TO  RIC  FILE  (NRF) 

FROM  THE  WEAPONS  SYSTEMS  FILE  (WSF)  NECESSARY  FOR  THE 
MANAGEMENT  OF  THE  SHIPBOARD  EQUIPMENT  CONFIGURATION 
ACCOUNTING  SYSTEM  (SECAS) 


85 


APPENDIX  B 


REVIEW  OF  AJLIS  FEATURES 

1.  INTRODUCTION 

ALIS  is  an  integrated  office  automation  software  package  that  operates  under  a 
variety  of  computer  operating  systems.  The  software  contains  a  word  processor, 
spreadsheet,  personal  database,  graphics  editor,  electronic  mail,  calendar,  and  file 
management  modules  in  a  tightly  integrated  package.  The  Graphical  User  Interface  has 
an  icon  based  (object  oriented)  information  management  system,  with  multiple  windows 
that  makes  use  of  a  mouse.  It  is  very  similar  to  the  Apple  Macintosh  style  interface, 
with  greater  consistency  between  the  modules.  Electronic  mail  can  be  sent  via  the 
Simple  Mail  Transport  Protocol  (SMTP)  used  by  the  Transport  Control  Protocol  / 
Internet  Protocol  (TCP/IP)  standard  established  by  the  Department  of  Defense  and  used 
widely  to  connect  dissimilar  computer  systems,  IBM  DIS^SS  and  CICS  mail  via  a 
gateway  package,  standard  UNIX  mail  and  Digital  Equipment  Corporation’s  DEC  mail. 

2 .  OPERATING  SYSTEMS 

ALIS  version  2.0  is  presently  ported  to  over  20  UNIX  based  systems.  These 
include  SUN  Microsystems  servers  and  workstations,  IBM  RT  PC,  any  Intel  80286  & 
80386  based  system  operating  under  XENIX  and  Hewlett-Packard  HP9000  series 
workstations.  The  system  also  will  operate  under  AT&T’s  UNIX  system  V,  Berkley  4.2 
UNIX,  Apollo’s  Aegis,  and  Digital  Equipment  Corporation’s  (DEC)  Ultrix  operating 
system.  Additionally  ALIS  will  run  on  any  of  DEC’S  family  of  VAX  computers  under 
the  VMS  operating  system.  The  large  number  of  platforms  that  ALIS  can  operate  on, 
and  the  range  of  systems  available  from  personal  computer  to  mainframes,  does  not 
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impose  a  limited  on  the  number  of  users,  mass  storage  or  response  time.  Further 
flexibility  is  afforded  via  the  ALIS  capability  to  use  macros  and  data  created  on  one 
system  (UNIX),  without  translation  for  use  on  other  systems  (VAX  VMS).  This  allows 
dissimilar  systems  installed  at  one  site  to  be  able  to  work  together  as  a  cohesive  group 
and  exchange  information. 

3.  EQUIPMENT  CONFIGURATIONS 

ALIS  is  very  flexible  in  how  the  CPU  processing  and  file  storage  is  distributed. 
The  base  configuration  Could  be  a  central  computer  (Intel  80386,  SUN  3/160,  DEC 
VAX  8800)  with  one  console  device  and  multiple  ANSI  X.64  "dumb"  terminals.  In 
this  configuration  only  the  console  would  have  the  complete  "Graphical  User  Interface" 
(windows)  which  could  use  a  mouse.  The  terminals  would  have  a  character  based  display 
(similar  to  IBM’s  PROFS  or  DEC’s  ALL-IN-1)  and  use  the  system  with  function  key 
commands.  Non-graphic  terminals  would  not  be  able  to  display  business  graphics.  All 
processing  and  storage  occurs  on  the  central  computer’s  CPU. 

The  next  higher  configuration  would  use  the  same  central  computer.  The 
computer  would  be  connected  to  a  network  (Ethernet  or  Token  Ring)  running  the 
TCP/IP  protocol.  Instead  of  the  ANSI  X.64  terminals  each  user  is  given  an  MS-DOS 
based  personal  computer  (PC)  connected  to  the  network  with  an  interface  card.  An 
MS-DOS  based  product  called  "PC-ALIS”  is  used.  This  product  allows  each  PC  to  have 
a  complete  graphical  user  interface,  including  mouse  support,  which  utilizes  all  of 
ALIS’s  features.  PC-ALIS  is  an  intelligent  terminal  emulator  which  uses  TCPAP  to 
communicate  with  the  central  CPU.  The  processing  load  is  split  between  the  central 
computer  (which  handles  file  storage,  computations  and  network  interface)  and  the  PC 
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(which  handles  the  screen  processing).  For  example  if  a  spreadsheet  graph  is  updated, 
the  central  CPU  processes  the  changes.  Simultaneously  the  PC  sends  and  then  receives 
the  updates  and  paints  the  screen  to  reflect  the  changes.  Since  the  bit  mapped  screen 
imaging  used  to  create  the  graphical  user  interface  is  a  high  overhead  item  ,  the 
distribution  removes  some  of  the  load  from  the  central  CPU. 

The  highest  level  configuration  has  a  central  CPU  acting  as  a  file  server.  This 
network  hub  (SUN  3/260  or  DEC  VAX  8800  server)  has  multiple  UNIX  or  VMS  based 
workstations  connected  to  it  via  an  Ethernet  (Eg;  SUN  NFS  (network  file  system) 
protocol  for  UNIX  or  DEC’s  DECNet  protocol  for  VAX  VMS).  Each  workstation 
would  process  its  own  tasks  and  use  the  server  for  storage  and  network  services  (mail, 
printing  tasks,  file  transfers).  Each  workstation  would  have  a  complete  graphical  user 
interface  with  mouse  support.  This  is  what  the  XEROX  Palo  Alto  research  center 

defined  in  1981  as  the  optimal  information  system. 2  individual  workstations  are 

connected  to  a  central  file  server  via  an  Ethernet.  Each  workstation  would  have  a 
graphical  user  interface,  featuring  multiple  windows,  a  consistent  user  interface,  with  a 
mouse  based  pointing  device.  It  has  taken  8  years  for  computers  and  ethernets  to  have 
sufficient  speed  and  power  to  make  this  optimal  system  feasible. 

4.  USER  INTERFACE 

The  "XEROX  Star”  style  interface  is  best  known  for  its  implementation  on  the 
Apple  Macintosh  computer.  Partial  implementations  of  the  interface  are  also  seen  in 


^  Designing  the  Star  User  Interface,  Dr  David  Smith  etal,  XEROX  Corp.,  Byte 
Magazine,  April  1982  pp  242-282. 
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Microsoft’s  Windows  and  IBM's  planned  Presentation  Manager  for  the  OS/2  operating 
system.  Much  of  IBM’s  planned  Systems  Application  Architecture  (SAA)  is  based  upon 
the  Star  interface  methodology.  Visually  the  ALIS  system  appears  as  an  extended 
version  of  Microsoft  Works  for  the  Macintosh.  The  ALIS  system  contains  all  the 
elements  (windows,  icons,  mouse,  integrated  graphics  and  text)  that  have  made  the 
Macintosh  popular  while  overcoming  many  of  its  failings.  By  taking  advantage  of  a 
powerful  minicomputer  or  larger  system,  ALIS  users  do  not  experience  the  delay  times 
associated  with  the  Macintosh.  Further  ALIS  is  designed  for  working  with  a  group  and 
sharing  information.  Conversely  the  Macintosh  is  limited  to  simple  File  sharing  via  an 
Apple-Talk  network  which  experiences  long  delays  waiting  for  file  from  a  central 
storage  location,  or  to  and  send  files  to  a  central  printer.  UNIX  and  VAX  VMS  were 
designed  with  multitasking,  networking  and  telecommunications  in  mind.  This  allows 
full  background  operations  such  as  mail  transfers,  print  spooling  and  batch  processing. 

Like  the  Macintosh,  the  user  can  start  and  stop  tasks  via  a  click  of  the  mouse. 
Multiple  windows  can  be  opened  and  information  traded  between  windows  via  a  cut  and 
paste  operation.  Unlike  the  Macintosh,  ALIS  offers  dynamic  linking.  The  dynamic 
linking  is  one  of  ALIS’s  most  powerful  features.  Dynamic  linking  allows  information 
from  spreadsheets,  databases  and  graphics  to  be  linked.  If  the  spreadsheet  is  updated 
with  new  data  the  links  to  the  database,  other  spreadsheets  and  documents  are  updated. 
For  example,  if  the  latest  quarters  sales  are  entered  into  a  spreadsheet  and  average  sales 
are  generated,  then  reported  via  a  document  AT  IS  would  automatically  generate  the 
new  sales  average  and  enter  them  into  the  designated  spot  of  the  document.  ALIS  also 
has  an  easy  to  use  macro  generator.  Unlike  the  Macintosh,  ALIS  allows  menu 
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generation,  information  query  pop-up  windows  and  the  ability  to  have  one  macro 
access  the  various  modules  and  perform  a  complex  operation.  The  macro  could  for 
example,  read  the  database,  input  data  into  the  spreadsheet,  compute  a  number  and 
update  an  associated  graph.  The  macro  then  places  the  new  number  and  updated  graph 
into  the  document,  sends  the  document  via  electronic  mail,  to  a  distribution  list.  This 
total  sequence  could  be  triggered  from  a  single  menu  pick. 

5.  WORD  PROCESSOR 

The  document  composer  is  a  full  feature  word  processor  with  all  the  features  of 
Word  Perfect  ver  5.0  less  a  thesaurus.  ALIS  allows  graphics  and  spreadsheet  tables  to 
be  integrated  into  documents,  but  unlike  Word  Perfect,  it  uses  a  cut  and  paste 
operation  that  does  not  require  extensive  file  manipulation.  It  makes  full  use  of  the 
mouse  and  also  has  a  WYSIWYG  (What  you  see  is  what  you  get)  display  that  shows 
both  the  fonts  and  graphics  exactly  as  they  will  be  printed.  ALIS  offers  5  fonts  and 
from  between  6  to  36  points.  The  system  also  allows  the  import  and  export  of  IBM 
DCA  RFT,  ASCII,  and  NavyDIf  file  formats.  This  allows  the  transfer  of  documents 
between  ALIS  and  IBM  systems,  standard  word  processors  and  PC  based  word 
processing  systems. 

6.  SPREADSHEET 

The  spreadsheet  has  all  the  features  of  Lotus  1-2-3  and  a  look  and  feel  that  is  very 
similar  to  Microsoft’s  Excel,  It  makes  use  of  the  mouse  and  has  an  array  of  702  X 
9999  cells.  Since  the  system  is  UNIX  or  VMS  based  and  uses  virtual  memory  there  is 
no  limit  on  the  practical  size  of  the  spreadsheet.  It  has  inter-spreadsheet  referencing 
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(3D)  like  Boeing  Calc  or  Lucid  3D.  The  system  allows  import  and  export  of  Lotus 
1-2-3  WKS  files,  DIF,  Multiplan  and  Excel  (SYLK)  files. 

7.  PERSONAL  DATABASE 

The  database  is  a  flat  file  database  designed  to  handle  small  size  data  requirements. 
It  is  similar  to  Borland’s  Reflex  and  IBM’s  Filing  Assistant.  The  module  is  best  used 
to  hold  data  from  larger  system  or  for  personal  databases  (to  do  list,  phone  directo¬ 
ries  and  mailing  lists).  It  allows  import  and  export  of  DIF  files. 

8.  GRAPHICS  EDITOR 

This  module  is  a  complete  graphics  and  drawing  package.  It  has  features  similar  to 
Media  Cybernetic’s  DR  HALO  and  Software  Publishing  Corporation’s  Harvard 
Presentation  Graphics.  Additionally  the  package  allows  business  graphics  created  from 
spreadsheet  data  to  be  edited  and  annotated.  HP-GL  formatted  graphics  and  FAX  images 
can  be  imported  and  saved  as  separate  objects  and  also  included  into  compound  graphics 
images. 

9.  ELECTRONIC  MAIL 

ALIS  can  send  and  receive  compound  documents  to  other  ALIS  systems  without 
regard  for  the  recipient’s  operating  system.  The  system  can  also  send  and  receive 
standard  UNIX  mail  (text  format  only),  DEC  Mail  and  with  gateways  most  IBM 
systems.  Additionally,  the  system  has  a  pop-up  phone  message,  in  the  format  of  phone 
message  slip,  which  allows  a  message  to  be  sent  that  call  was  received  while  the 
recipient  was  out. 


91 


10.  CALENDAR  MANAGEMENT 


The  calendar  management  system  provides  for  both  personal  time  management  and 
resource  scheduling.  It  contains  the  features  of  IBM’s  PROFS  and  DEC’s  ALL-IN-1  but 
additionally  allows  the  calendar  to  be  accessed  and  viewed  while  working  on  other 
documents.  It  also  contains  an  activity  planner,  delegate  tasks  and  schedules  resources 
(meeting  rooms,  projectors  and  personnel). 

11.  MISCELLANEOUS 

The  ALIS  system  supports  a  wide  variety  of  printers.  Support  includes  HP 
laserjet,  postscript  printers,  HP-GL  plotters  and  dot  matrix  printers  The  file 
management  systems  is  presented  to  the  users  organized  as  a  series  of  file  cabinets  and 
folders.  The  system  allows  document  searching  and  keyword  retrievals.  Files  can  be 
shared  between  users  and  access  can  be  controlled. 

ALIS  is  written  in  the  ”C"  programming  language.  Applix  Inc.  offers  an  integra¬ 
tion  toolkit.  This  allows  non-ALIS  products  to  be  integrated  into  the  ALIS  environ¬ 
ment.  An  SQL  database  can  be  made  part  of  the  system  with  the  toolkit.  This  allows 
data  to  be  pulled  out  of  the  SQL  database  and  moved  into  other  modules.  The  SQL 
database  can  also  provide  a  window  to  allow  data  input  and  display.  Applix  Inc.  offers 
an  IBM  3270  terminal  emulation  window. 


11.  SUMMARY 


ALIS  is  a  distinctive  integrated  system  with  several  key  features  that  differentiate 
it  from  similar  products: 

•  Operating  on  computers  from  different  manufacturers,  it  allows  the 
computer  hardware  to  be  competitively  procured  while  providing  a  consis¬ 
tent  user  interface  usually  not  available  when  different  brands  of  computer 
are  installed. 

•  Running  on  any  size  machine,  ALIS  eliminates  the  need  to  change  application 
software  when  a  larger  machine  is  required. 

•  Benefiting  from  hardware  independence,  a  cost  effective  configuration  can 
be  developed  for  the  smallest  office  or  the  largest  corporation.  When 
expansion  is  necessary,  replacement  of  the  current  equipment  and  training  is 
not  required.  Rather,  additional  equipment  is  added  to  the  network  and  the 
current  training  program  and  application  software  is  retained. 

•  Integration  of  dissimilar  systems  is  much  easier  with  ALIS’s  excellent 
telecommunications  capabilities. 

•  For  computers  larger  then  personal  computers  ALIS  is  the  only  software 
product  that  provides  the  "XEROX  Star"  interface.  This  style  interface 
makes  the  system  easy  to  learn  and  use. 
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APPENDIX  C 


DATA  ELEMENTS  SELECTED  BY  INVENTORY  MANAGERS  AND  THE  ASSOCI¬ 
ATED  A02  PRODUCT  THEY  APPEARED  IN. 

DEN  AS  BK  CD  CH  CL  EF  NA  NB  RS  AL  hits  avg 


D046D  564143411  29  9  3 

C003  665103100  22  6  4 

K002  007312007  20  5  4 

B002  645103000  19  5  4 

C035  070003330  16  4  4 

C003A  32210000084  2 

C003B  22210000074  2 

AO  01  200470000  13  3  4 

K024  007400001  12  3  4 

B053  053000030  11  3  4 

KG  2  5  00710000193  3 

C004  05010020083  3 

K0  06  00040013083  3 

C042  23010000063  2 

K005  00022010053  2 

3011A  560000000  11  2  6 

LG  2  2  00006030092  5 

K001  00043000072  4 

KC26  00300000362  3 

L001G  00000042062  3 

L010  00005010062  3 

E089  04000000152  3 

K011  00004010052  3 

L001A  00000032052  3 

K017  00031000042  2 

L0C9  000C2010032  2 

A012A  10010000022  1 

B08 1  00001010022  1 

C003E  10010000022  1 

C005  01000010022  1 

L033  00008000081  8 

A008B  70000000071  7 

AO  11  70000000071  7 

AO  12  70000000071  7 

D074  70000000071  7 

D001  C7onn0QCO7l  7 

KG34  00700000071  7 

K036  00700000071  7 
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L001  OOO 

AO 14  600 

A021A  600 

CO 3 8  C  6  0 

D012  C  6  C 

K022  006 

B010  050 

D013C  050 

D009  040 

DC29  040 

L025  000 

L213  000 

AO 30  300 

C035A  000 

C043  000 

D011  030 

D016  030 

DC16A  030 

K018C  003 

KC2 1  000 

L029C  000 

AC14A  000 

BO  01  2  0  0 

BG02B  000 

B007  C  2  0 

B046A  200 

BOS  9  0  2  0 

CCC3W  000 

D013  020 

DC25E  020 

DC25F  020 

KC26B  002 

K033  002 

K061  0  C  0 

L002  0  C  0 

L023  000 

L029  000 

L033A  000 

L038  000 

L304  000 

L330  000 

L341  GOO 

L388  000 

A002  000 

AG12K  n  0  0 

AC25  1  0  0 


7  0  0  0 

0  0  0  0 

0  0  0  0  0 

0  0  0  0  0 

0  0  0  0  0 

0  0  0  0  0 

0  0  0  0  0 

0  0  0  0  0 

0  0  0  0  0 

0  0  0  0  0 

0  0  0  4  0 

0  0  0  4  0 

0  0  0  0  0 

0  0  0  3  0 

0  0  0  0  3 

0  0  0  0  0 

0  0  0  0  0 

0  0  0  0  0 

0  0  0  0  0 

0  0  3  0  0 

0  0  0  3  0 

2  0  0  0  0 

0  0  0  0  0 

0  0  0  2  0 

0  0  0  0  0 

0  0  0  0  0 

0  0  0  0  0 

0  0  0  2  0 

0  0  0  0  0 

0  0  0  0  0 

0  0  0  0  0 

0  0  0  0  0 

0  0  0  0  0 

0  0  0  2  0 

0  2  0  0  0 

0  0  0  2  0 

0  2  0  0  0 

0  0  0  2  0 

0  0  0  2  0 

0  0  0  2  0 

0  0  0  2  0 

0  0  0  2  0 

0  2  0  0  0 

1  0  0  0  0 

1  0  0  0  0 

0  0  0  0  0 


0  7  1  7 

0  6  1  6 

0  6  1  6 

0  6  1  6 

0  6  1  6 

0  6  1  6 

0  5  1  5 

0  5  1  5 

0  4  1  4 

0  4  1  4 

0  4  1  4 

0  4  1  4 

0  3  1  5 

0  3  1  3 

0  3  1  3 

0  3  1  3 

0  3  1  3 

0  3  1  3 

0  3  1  3 

0  3  1  3 

0  3  1  3 

0  2  1  2 

0  2  1  2 

0  2  1  2 

0  2  1 

0  2  1 

0  2  1 

0  2  1  2 

0  2  1  2 

0  2  1  2 

0  2  1  2 

0  2  1  2 

0  2  1  2 

0  2  1  2 

0  2  1  2 

0  2  1  2 

0  2  1  2 

0  2  1  2 

0  2  1  2 

0  2  1  2 

0  2  1  2 

0  2  1  2 

0  2  1  2 

011  1 

011  1 

011  1 
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(N  c\)  eg 


B0I3 

C009 

C012 

C016 

D001A 

DOOIB 

D005 

DC  C  o 

D008 

D016B 

D024 

D120 

D131 

E007 

F025 

FOB 

KC183 

L034 

L039 

L293 

M 

p::n 

spun 

Y15 

total 


0  1 
0  1 
0  1 
0  1 
0  1 
0  1 
0  1 
0  1 
0  0 
0  1 
0  1 
0  1 
0  1 
0  1 
0  0 
0  0 
0  c 
0  c 
0  0 
0  Q 
0  0 
0  0 
0  0 
0  0 
81  120 


0  0 
0  0 
0  0 
0  0 
0  0 
0  0 
0  0 
0  0 
0  0 
0  0 
0  0 
0  0 
0  0 
0  0 
0  0 
0  0 
0  1 
C  0 
0  0 
0  0 
0  0 
0  0 
0  0 
0  1 
72  40 


0  0 
0  0 
0  0 
0  0 
0  0 
0  0 
0  0 
0  0 
0  0 
0  0 
0  0 
0  0 
0  0 
0  0 
0  0 
0  0 
0  0 
0  0 
0  0 
0  0 
0  1 
0  0 
0  0 
0  0 
57  18 


0  0 
0  0 
0  0 
0  0 
0  0 
0  0 
0  0 
0  0 
0  0 
0  0 
0  0 
0  0 
0  0 
0  0 
0  0 
0  1 
0  0 
1  0 
1  0 
1  0 
0  0 
0  1 
0  1 
0  0 
62  20 


011  1 

011  1 

011  1 

011  1 

011  1 

011  1 

011  1 

011  1 

111  1 

011  1 

011  1 

011  1 

011  1 

011  1 

111  1 

011  1 

011  1 

011  1 

011  1 

011  1 

011  1 

011  1 

011  1 

011  1 

16  488  9  54 


96 


APPENDIX  D 

NSN5B  PROGRAM  TO  EXTRACT  UICP  DATA 


: :  4  2 : : : : 
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005000 

005930- 

0  0  6  0  C  0 

006100 

006200 

006300 

006400 

006500 

006600 

ooe^oo* 

03680C 

006900 

007103 
0  0  ~T2  "  0 

000400 


ITEM-NAME-I 

SEQ-AND-DATA-I 


PIC  X  (22)  . 
POC  X  (288)  , 


LA3EL  RECORDS  ARE  STANDARD 

RECORDING  MODE  IS  F 

BLOCK  CONTAINS  C  RECORDS 

RECORD  CONTAINS  140  CHARACTERS 

DATA  RECORD  IS  OCTPUT-REC-1 . 

OOTPUT-REC-1  PIC  X  (140)  . 


It,,...,..,,., 


OFILE2 

LABEL  RECORDS  ARE  STANDARD 

RECORDING  MODE  IS  F 

BLOCK  CONTAINS  0  RECORDS 

RECORD  CONTAINS  140  CHARACTERS 

DATA  RECORD  IS  CJTPUT-REC-2. 

OCTPCT-REC-2  PIC  X114C). 


005900CC 

,  ................00600000 

00610000 

C062C0CC 

0063000C 

00640000 

00650000 

00660000 

00670C0C 

............... ..0068COOC 

0069 COCO 
00700000 
C0710000 
00720000 
00730000 
00740001 
CChZZZZ 


Dr  _  _c.~ 

LABEL  RECORDS  ARE  STANDAR 
RECORDING  MODE  IS  F 
BLOCK  CONTAINS  0  R 


*  ~  ^  /• 


r  .  3-,  ■ 

::  341 


RECORD  CONTAINS 
DATA  RECORD  IS 
OCTPCT -REC-3 


RDS 

HARACTERS 


X  ( 1  4  0  )  . 


007800 

037900 
00  8  0  0  0 
c  o  8 1 : : 
016200 
c  o  e  3  o  o 


■00840 


OF  OLE 4 

LAor.L  RECORDS  ARE  STANDARD 
RECORDING  MODE  IS  F 
BLOCK  CONTAINS  0  RECORDS 
RECORD  CONTAINS  140  CHARACTERS 
DATA  RECORD  IS  OCTPCT-REC-4 . 
CLT?L’T-REC-4  PIO 


LABEL  RECORDS  ARE  STANDARD 
RECORDING  MODE  IS  F 
BLOCK  CONTAINS  0  RECORDS 
RECORD  CONTAINS  040 
DATA  RECORD  IS  OCT? 


X (I  4  0 )  . 


CHARACTERS 
T-REC-5 , 


PIC  X  (140) 


0  08  6  0 
0  0  8 ' 0 
0  088  0 
0  08  90 
00  900 
CC910 
'00920 
O'O  930 
00940 
0  0  950 
0  0  96  0 
0  0  97  0 
0  0  980 
■"  q  ar 


1112  0  0 


11160 

118  0 
1190 
12  01 


LABEL  RECORDS  ARE  S 
RECCRTINC-  MODE  IS  F 
BLCCK  CONTAINS  0  RE 
RE CTRL  CONTAINS  140 
DATA  RECORD  OS  COT? 

CF0LE7 

LA3EL  RECORDS  ARE  S 
RECORDING  MODE  OS  F 
BLOCK  CONTAINS  C  PEI 
RECORD  CONTAINS  140 
DATA  RECORD  OS  CCTPI 
OOTPCT-REC-7 

CFI LE6 

LA3EL  RECORDS  ARE  SI 
RECORDING  MODE  IS  F 
BLCCK  CONTAINS  0  RF1 


TANDARC 


CHARACTERS 

l-REC-6. 

?  1 1 


x ; 


.40)  . 

t  .  *  .  l 


110410 


'01060 
010  90 


TANDARC 

CORDS 

CHARACTERS 

DT-REC-7. 

PTC 

ANCARD 

CRTS 


X  (140!  . 


•01160 
0 1 1  7  0 
0118  0 
r  ■  ■  g. 
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DATA  REC CSC  15  "1 . FCC-REC-S . 

C.22^-C. 

Cl  22 : c 

C 1 

OOTPUT-REC-8  PIC 

X  !  1  4  :  )  . 

C123CCCC 

C  -23CC’1 

*  * 

: :  2  4 : : 

?c 

OF  HE  9 

: :  2  d  c : : : 

0:250: 

1A3E1  RECORDS  ARE  STANDARD 

01260000 

C126CC 

RECORDING  MODE  IS  F 

01270000 

: i  2  ~ : : 

BLOCK  CONTAINS  J  RECORDS 

Cl  280000 

::28c: 

RECORD  CONTAINS  14C  CHARACTERS 

C129CCC0 

012900 

DATA  RECORD  IS  Ol'TPUT-REC-9. 

C1300000 

. 

oi3cc: 

rs  - 

* 

OUTPUT -REC- 9  PIC 

X  (140)  . 

01310000 

C .  3 *0 C ’ 

C132CC 

?c 

of: LEI c 

Cl  330000 

Cl 33CC 

LABEL  RECORDS  ARE  STANDARD 

01340000 

c :  3  4  c  c 

RECORDING  MODE  IS  F 

r,  *  7  C,  n  ^  n  ^ 

013501 

BLOCK  CONTAINS  C  RECORDS 

01360000 

c :  3  6 : : 

RECORD  CONTAINS  140  CHARACTERS 

01370000 

C 1 3  7CC 

DATA  RECORD  13  Cl'TPCT-REC-1  0 . 

01380000 

013800 

Cl 

OUTPUT-REC-IC  FIC 

X  ( L  4  0). 

01390000 

Cl  4  0  0  0 

r- 

OF  1  LEI  1 

0141000: 

Cl  4100 

LA3EL  RECORDS  ARE  STANDARD 

C1420CC0 

:  1 4  2 ; : 

RECORDING  MODE  IS  F 

C 1  4  3  C  C  1 : 

: :  4  3  c  c 

BLOCK  CONTAINS  C  RECORDS 

:  1 4  4 :  c  o : 

:  1 4  4 :  c 

RECORD  CONTAINS  1C  CHARACTERS 

Cl 4DCCC I 

: :  a  z  : : 

DATA  RECORD  IS  CL T? LI -RE C - 1 1 . 
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11  51 GN-L 

PIC 

X. 

os:::::: 

080200 

r  ^  _  r.  R 

PIC 

X. 

08110000 

080300 

05  CC03E-1 

PIC 

X. 

C812000C 

080400 

1 7  F 1 L  LE  R 

PIC 

XX. 

08130000 

060500 

11  7ELY -LA7E-L 

PIC 

9  (5)  . 

C8140C0C 

C8C6CC 

Cl  FILLER 

PIC 

X. 

06I5000C 

080700 

05  1034-1. 

081 60000 

C  8  7  8  7  C 

ic  lc34-l-:n 

PIC 

S9  (6)  . 

08170000 

7  8  7  97  C 

1C  LC34-L-M1 N1S-1N 

PIC 

X. 

OBI 8CCCC 

C  8 1 7  7  7 

Cl  FILLER 

PIC 

X. 

08190000 

781  ICC 

^  7  -A - Ur  -An.  .  -  Ik 

PIC 

9(5)  . 

08200000 

080200 

03  FI11ER 

PIC 

X. 

08210000 

C  o 1 2  7  7 

05  TYPE -OF -ACT I ON -1 

PIC 

X. 

C8220CC0 

781 ^77 

Ci  F CL LOW - 7? - 1 N I - L 

PIC 

X. 

08230000 

ZBZiZZ 

c i  ex?ec:te-:n7-i 

PIC 

X  . 

08240000 

109 


osieoc 

C  5 

FILLER 

PIC  X  (9)  . 

08250000 

os:':: 

*">  c. 

AC12A-FR0M-L 

PIC  X. 

08260000 

csisoc 

C  5 

FILLrR 

PIC  X (61 . 

0827C0CC 

ce: 9:: 

C5 

a::  2A-TC-L 

PIC  X. 

08280000 

cs2o:c 

25 

FILLER 

PIC  X  ( 9 1  . 

08290000 

082100 

05 

LC4C-L 

PIC  9|6). 

0830000C 

0822CC 

c  D 

FI*’ ER 

PIC  X  (5)  . 

C83ICC00 

082300 

05 

KC29-L 

PIC  XXX. 

C8j2C00c 

082900 

C5 

FILLER 

PIC  X (20) . 

08330000 

082500 

C5 

CC-L 

PIC  X. 

0839C00C 

082600 

05 

FILLER 

PIC  X  (250)  . 

08350000 

””””08360017 

‘  ’  ‘ 

os:?::  :: 

ws 

-N-REC. 

08380017 

08:800 

05 

im-hor-n. 

08390017 

080900 

10  IM-FILE-U-N 

PIC  X  (5)  . 

0890)0017 

082000 

1C  IK-RZQR-IL-N 

PIC  X  (7)  . 

08910017 

082000 

IC  H2R-LRC-N 

PIC  XXX. 

08920017 

062200 

1 C  HLR-FGC-N 

PIC  X  (9)  . 

C893C017 

082500 

IC  H2R-F-REL-N 

PIC  X. 

06990017 

082900 

1C  HDR-NIIN-N 

PIC  X (9) . 

08950017 

062500 

10  PRINT-CCDE-N 

PIC  X. 

C896CC17 

062600 

IC  SEC-LATA-N 

PIC  X  (20  . 

089-0007 

0S2~0  0 

C5 

FPR-X222  -IN' 

PIC  X  (3)  . 

08980017 

082500 

C  5 

FILLER 

PIC  X. 

08990007 

062900 

2  5 

??R-KC02-:\* 

PIC  X  (0  9 )  . 

C85C0  31 “ 

C  S  2  C  "  C 

C5 

FILLER 

PIC  X. 

cesioou 

C  £  2 1  c  r 

r>  z 

PrR-AC I I -IN 

PIT  XXX. 

08520:: 7 

063200 

r  c. 

FILLER 

PIC  X. 

085300:- 

2  8  2  3  2  2 

C  5 

PPR-A002A-IN 

PIC  X. 

085900:  - 

063900 

C  5 

FILLER 

PIC  X. 

06550017 

063500 

^  c 

PPR-KCL  7-IN’ 

PIC  X<6>  . 

08560017 

C  c  -« 6  C  C 

05 

FILLER 

PIC  X. 

C857CCL 7 

C83"00 

05 

PPR-CTY-IN 

PIC  9(7)  . 

C858CC2  7 

2  P  P  *  r 

C5 

FILLER 

PIC  X. 

OSdOOOU 

085900 

C  5 

PPR-KOO  8-IN 

PIC  9(5) . 

0S6CC0: 7 

089000 

C  c 

FILLER 

PIC  X. 

08610017 

-l  £  f  *  “• 

C  5 

PPR-AOO  9A-IN. 

0862001  - 

II  ACL  4B-E-IN 

PIC  X  (9)  . 

0863CC1"’ 

I C  AII4F-IN 

PIC  X. 

08690017 

IC  ACL  43-IN 

PIC  X. 

08650017 

284211 

C  f 

F I LLER 

PIC  X. 

0866001- 

069300 

2  5 

PPR-K029-IN 

PIC  XXX. 

0867C01- 

069900 

C  5 

FILLER 

PIC  X. 

c  8  c  8 : : : n 

069:00 

PPR-KC2  6-1 N 

PIC  XX. 

0869001" 

089600 

05 

FILLER 

PIC  X  (30  61  . 

C6  7.0001  ‘ 

085900’'” 

*  *  *  * 

,»"S->2crrc 

0  8  6  0  0  0  ”  ” 

*  »  * 

»****■***»»»»»*»*»» 

»»***»*«#*******tT*t»**»¥»T»T»1>* 

*********  2  8750202 

oseooo  o: 

WS- 

P-REC. 

C87C202 

C  8  €2  2  2 

c  * 

IM-K3R-P . 

08750000 

0862:: 

IC  IK-FILE-I3-P 

PIC  X  (5  )  . 

08760000 

066900 

LC  IM-REQR-I2-? 

PIC  X  (7)  . 

08770000 

086500 

IC  HDR-LRC-P 

PIC  X  (3  )  . 

2878CCC2 

086600 

IC  HDF-FGC-? 

PIC  X  (9)  . 

C879000C 

086700 

1C  HDR-F -REL-? 

PIC  X. 

OB8CGOCO 

086800 

10  HCR-NIIN-? 

PIC  X (9) . 

0881C0CC 

086900 

IC  PRIM-COLE-? 

PIC  X. 

08820CCC 

087000 

10  SEQ-3ATA-? 

PIC  X (20) . 

08830000 

ce^ic :***f 

:rst 

ALT  NUN  ENTRY  OF 

FIRST  PRINT  LINE'””””””” 

08'12C0 

05 

FILLER 

PIC  X ( 1 2 ) . 

C885C000 

C  8  ~  3  00 

C  5 

DC: 6-1ST 

PIC  X (9) . 

0 8860000 

0  8  -  9  0  0 

05 

FT  LLER 

PIC  XXX. 

08870000 

08'50: 

C  5 

LOT  6A-0ST 

PIC  99. 

c8eec:o: 

1 10 


100400 

05  D013-3-1ST 

PIC  XX. 

lonoooo 

100500 

05  FILTER 

PIC  X  (15)  . 

10180000 

100600*”FIRST  APPL  ENTRY  OF  2ND  PRINT 

LINE**”*””*”*””””* 

10070C 

05  D009-2ND 

PIC  X  (1C)  . 

1 020CC0C 

1CC80C 

05  FILLER 

PIC  XX. 

1C210QCC 

iC09C0 

05  DC09A-2ND 

PIC  X. 

102200CC 

101000 

05  FILLER 

PIC  X. 

10230000 

1 01 ICC 

05  D011-2ND 

PIC  9(6)  . 

10240000 

101200 

05  FILLER 

PIC  X (4) . 

10250000 

101300 

05  F018-2ND 

PIC  999. 

10260000 

101400 

05  FILLER 

PIC  X. 

10270000 

10150C 

05  D013-2ND 

PIC  XX. 

10280000 

10160C 

05  FILLER 

PIC  X  (1C)  . 

10290000 

101700* 

’•SECOND  APPL  ENTRY  OF  2ND  PRINT  LINE**”’*****’*”***”** 

.****’*10300000 

1 01 800 

05  D009-2-2ND 

PIC  X  (1C)  . 

10310000 

101900 

05  FILLER 

PIC  XX. 

10320000 

102000 

05  D009A-2-2ND 

PIC  X. 

10330000 

102100 

05  FILLER 

PIC  X. 

10340000 

102200 

05  DC11-2-2ND 

PIC  9(6) . 

10350000 

102300 

05  FILLER 

PIC  X  (4) . 

1 036CC00 

1C2400 

05  F018-2-2ND 

PIC  999. 

10370000 

1025C0 

05  FILLER 

PIC  X. 

103800C0 

102600 

05  D01 3-2-2ND 

PIC  XX. 

1C390C0C 

1  ^  ^  7  C  n. 

05  FILLER 

PIC  X  (1C)  . 

'  ~  4  0 ^  ^ 

::2e:o 

•’THIRD  APPL  ENTRY  OF  2ND  PRINT 

LINE*”*”’ . . 

1C293C 

05  DOC 9-3-2ND 

PIC  X  (10)  . 

10420000 

-  <*>  ^  ^ 

..  l/OkU'- 

05  FILLER 

PIC  XX. 

10430000 

:  c  3 :  c : 

05  DCC9A-3-2ND 

PIC  X. 

10440000 

103200 

05  FILLER 

PIC  X. 

10450000 

1C32CC 

05  D01 1-3-2ND 

PIC  9(6) . 

10460000 

103400 

05  FILLER 

PIC  X  (4)  . 

10470000 

*1  ^  c,  r  fN 

05  F01 8-3-2ND 

PIC  999. 

10480000 

10360C 

05  FILLER 

PIC  X. 

10490000 

103700 

05  D013-3-2ND 

PIC  XX. 

10500000 

103800 

05  FILLER 

PIC  X (15) . 

1C510000 

103900* 

* ’FIRST  APPL  ENTRY  OF  3RD  PRINT 

. ”10520000 

104000 

05  D309-3RD 

PIC  X  (10)  . 

10530000 

i  c  < :  c : 

05  FILLER 

PIC  XX. 

1C54000C 

104200 

05  D0C9A-3RD 

PIC  X. 

*  r-  c  ^  ^  ^ 

104300 

05  FILLER 

PIC  X. 

1  G  *  6  3  *  r  ~ 

1 C  4  4  0  0 

05  D011-3RD 

PIC  9(6). 

'  AC  ■JAN'W' 
±  V  y.  '  \J  N,  V  W 

104:00 

05  FILLER 

PIC  X  (4)  . 

1C580CCC 

104600 

05  F018-3RD 

PIC  999. 

10590000 

1C47CC 

05  FILLER 

PIC  X. 

1060000C 

104800 

C 5  DC13-3RD 

PIC  XX. 

10610000 

104900 

05  FILLER 

PIC  X  (10)  . 

10620000 

1 C  5  C  C  C  * 

’’SECOND  APPL  ENTRY  OF  3RD  PRIN 

T  LINE”*”*”*”’*”””” 

*******10630000 

10:100 

05  DCC9-2-3RD 

PIC  X  (1C)  . 

10640000 

105200 

05  FILLER 

PIC  XX. 

1065COCC 

1 3  R  “4  3  C 

05  DC09A-2-3RD 

PIC  X. 

10660000 

105400 

05  FILLER 

PIC  X. 

10670000 

1 035  0C 

05  DC11-2-3RD 

PIC  9(6). 

1 0680000 

105600 

05  FILLER 

PIC  X  (4)  . 

10690000 

105700 

05  FC18-2-3RD 

PIC  999. 

10700000 

1 C  5  8  0  0 

05  FILLER 

PIC  X. 

10710000 

1 C  5  90  0 

05  DC  1 3-2-3RD 

PIC  XX. 

1072000C 

106000 

05  FILLER 

PIC  X  (10)  . 

10730000 

106100* 

’•THIRD  APPL  ENTRY  OF  3RD  PRINT 

LINE”””*”*””””*’” 

1C62GC 

05  D009-3-3RD 

PIC  X  (10)  . 

10750000 

10630C 

05  FILLER 

PIC  XX. 

10760000 

10640C 

05  D009A-3-3RD 

PIC  X. 

1077000C 

106500 

05  FILLER 

PIC  X. 

10780000 

106600 

05  DC1 1 -3-3RD 

PIC  9(61  . 

10790000 

106700 

05  FILLER 

PIC  X (4) . 

10800000 

113 


106800 

05 

F018-3-3RD 

PIC  999. 

10810000 

1069CC 

05 

FILLER 

^IC  X. 

10820000 

1C70CC 

05 

DCl 3-3-3RD 

IIC  XX. 

10830000 

i07ic: 

FILLER 

PIC  X ( 1  5  )  . 

1 084C00C 

i  u  /  j  u  y  *  w  *  w 

* 

107400  01 

WS 

-T-REC . 

10870000 

107500 

n  s, 

IM-HOR-T. 

10880000 

107600 

10  IM-FILE-10-? 

PIC  X  (S)  . 

10890C0C 

107700 

10  IM-REQR-IO-T 

PIC  X  (7)  . 

10900000 

107800 

10  HDR-LRC-T 

PIC  XXX. 

10910000 

107900 

10  HDR-FGC-T 

PIC  X  (4)  . 

10920000 

108000 

1C  HDR-F-REL-7 

PIC  X. 

10930000 

108100 

10  HDR-N1IN-T 

PIC  X (9) . 

10940000 

108200 

10  PRINT-CODE-T 

PIC  X. 

10950000 

108300 

10  SEQ-DATA-T 

PIC  X (20) . 

10960000 

108400 

C  5 

BB-K0C2-K02C-1N 

PIC  X  (15)  . 

10970000 

108500 

C5 

FI  LEER 

PIC  X. 

10980000 

108600 

05 

BB-K036-1S 

PIC  9(5)  . 

1099C0C0 

108700 

05 

FILLER 

PIC  X. 

1100000C 

108800 

05 

BB-KC24-IN 

PIC  XXX. 

11010000 

108900 

05 

FILLER 

PIC  X. 

11C20000 

109000 

«  c 

BB-K02 2 -1 N 

PIC  XX. 

:i:3coo: 

109100 

*  c 

FILLER 

PIC  X. 

1 : D4C00C 

109200 

s. 

B3-!<:25-:n 

PIC  99. 

i :  c  5  c :  c  c 

1C  93  0  0 

05 

FILLER 

PIC  XX. 

11060000 

109400 

05 

DO-NC-SV3-:\r-IN 

PIC  X. 

11070000 

109500 

05 

FILLER 

PIC  X. 

nose::: 

109600 

05 

3B-K026-1N 

PIC  XX. 

-  n  9  3  £  ^ 

109700 

0  5 

FILLER 

PIC  X (338) . 

1 1 1  COCCI 

■ '  ■ 

iiocc:  o: 

WS 

-V-REC. 

11 1 3CCCC 

c. 

IM-K5P-V. 

111 4C0CC 

1 1  C  2  C  C 

10  IM-FILE-IL-V 

PIC  X (5) . 

111 50C .  0 

•  7  ^  V”  - 

*  0  T --V 

PIC  X  (7)  . 

i::60cc: 

-  -  n  f  «  - 

-  -  u  *f  -  «• 

1C  HwR-Lr.C-V 

PIC  XXX. 

11170000 

*  •  ns,'*'* 

10  HLR-FGC-V 

PIC  X  (4)  . 

1118CCC0 

; :  c  6 : ; 

10  HO? -F -REL-V 

PIC  X. 

-  •  -  g  '•  a  " 

IICOO 

10  HOR-N’I  IN-7 

PIC  X  (9)  . 

-  -  2  n  a  ^  ^  a 

110800 

10  ?P I N7-CCLE -V 

PIC  X. 

1121CCCC 

::c9c: 

1C  SE 0-0 AT A-V 

PIC  X  (20)  . 

1122000: 

1 1 Z.  0  c  c 

05 

C035-1N-1 

PIC  X  (5)  . 

112.JCC1C 

-  -  *  r-  r 

05 

CC38-1N-1 

PIC  X. 

1124C00: 

110200 

«  c. 

FILLER 

PIC  X. 

112SCCCC 

-  '  *  T  £  * 

05 

LOCI -IN-1 

PIC  X  (32)  . 

2*260000 

111400 

n  t 

FILLER 

PIC  X. 

•*  *  n  "7  a,  a  r 

J.  -  4  w  V  V 

111500 

C5 

C035-I  N’-2 

PIC  X  (5)  . 

1128000: 

o : : 600 

<"  c 

CC38-1N-2 

PIC  X. 

::29Co:: 

111700 

C  5 

FILLEP 

PIC  X. 

1:300000 

111800 

C  5 

D001-1N-2 

PIC  X  (32)  . 

11310000 

111900 

05 

FILLER 

PIC  X. 

1 1 3200C0 

112000 

05 

CC35-IN-3 

PIC  X (5) . 

1133C0CC 

112100 

05 

C038-IN-3 

PIC  X. 

11340C0C 

1 1220C 

C  5 

FILLER 

PIC  X. 

11350000 

112300 

0  5 

DCC1-IN-3 

PIC  X  (32)  . 

11 3600CC 

1 1 2  4  C  0 

C  5 

FILLER 

PIC  X (6) . 

11370C00 

112500 

C  5 

CC35-IN-4 

PIC  X  (5)  . 

11380000 

11260C 

C5 

CC  38- *  N-4 

PIC  X. 

1139C0C0 

112700 

05 

FILLER 

PIC  X. 

11400000 

1 i 2800 

05 

DCC1-IN-4 

PIC  X  (32)  . 

11410000 

1129CC 

CS 

FILLER 

PIC  X. 

11420000 

103000 

05 

C035-IN-5 

PIC  X  (5)  . 

11430000 

•  •  ^  ' 

C  5 

C038-IN-5 

PIC  X. 

11440000 

114 


11  3200 

C-5 

FILLER 

PIC  X. 

11450000 

113300 

05 

DCC1-IN-5 

PIC  X ( 32) . 

11460000 

1 1  3  4  0  C 

C5 

FILLER 

PIC  X. 

11 4700C0 

113500 

C5 

CC35-IN-6 

PIC  X (5) . 

11480000 

113600 

05 

C038-IN-6 

PIC  X. 

11490000 

113700 

05 

FILLER 

PIC  X. 

11500000 

1 1 3800 

05 

doc: -iK-6 

PIC  X  (32!  . 

11510000 

113900 

05 

FILLER 

PIC  X  (6)  . 

11520000 

114000 

05 

C035-IN-7 

PIC  X  (5)  . 

11530000 

114100 

05 

C038-IN-7 

PIC  X. 

11540000 

114200 

05 

FILLER 

PIC  X. 

11550000 

114300 

05 

D0C1-IN-7 

PIC  X  (32)  . 

11560000 

114400 

05 

FILLER 

PIC  X. 

11570000 

114500 

05 

C035-IN-8 

PIC  X (5)  . 

11580000 

114600 

05 

C038-IN-8 

PIC  X. 

1159000C 

114700 

05 

FILLER 

PIC  X. 

11600000 

1  1  4  80  C 

05 

D0C1-1N-8 

PIC  X  (32)  . 

11610000 

114900 

05 

FILLER 

PIC  X. 

1162000C 

* 1 scco 

05 

CC35-IN -9 

PIC  X  (5)  . 

11630000 

1151CC 

n  z. 

CC38-IN-9 

PIC  X. 

11640000 

11S2CC 

05 

FILLER 

PIC  X. 

11650000 

115300 

05 

D00I-IN-9 

PIC  X  (32)  . 

11660000 

115400 

05 

FILLER 

PIC  X (6)  . 

11670000 

:: 5  6  c  c  *  ” 1 

ws- 

.9 _ 

1.:  730300 

115800 

C-5 

-  v*  _,j  ^  p_  7 

11710000 

*  *  5?!!* 

:c  ry-FiiE-io-z 

PIC  X  (5)  . 

11720000 

116000 

: :  :m-req?-:c-z 

PIC  X  (7)  . 

II730C0C 

116100 

1C  HDR-LRC-2 

PIC  XXX. 

1' 740000 

116200 

10  HDR-FGC-2 

PIC  X  (4)  . 

117500 CC 

116300 

10  HDR-F -RE1-Z 

PIC  X. 

ir:6cccc 

116410 

io  hor-n::n-z 

PIC  X (9) . 

1 1 77CCCC 

116500 

10  PR1NT-CODE-Z 

PIC  X. 

11780003 

1 1  6  6  2  r 

1C  SEQ-CA7A-Z 

PIC  X  (20  . 

11790000 

1  1  670  0 

0: 

FILLER 

PIC  XXX. 

11800000 

116800 

05 

DQ93-IN 

PIC  X  (4)  . 

11310000 

116900 

C  5 

FILLED 

PIC  X  (7)  . 

11820000 

^  -  7  ~ r  r 

r  c 

D095-IN-1 

FIC  X  (4)  . 

11830000 

1 1  1  c  c 

05 

FILLER 

PIC  X  (6)  . 

118400 CC 

1 1  7  2  0  C 

05 

DC95-1N-2 

PIC  X (4) . 

11850000 

::  73cc 

<“  C 

FILLER 

PIC  X (6) . 

1186 C000 

117400 

^  C 

CC95-1N-3 

PIC  X  (  4 )  . 

1 1 8700  0C 

*  *  t;"' 

n  c 

F  ’’  ”  T  *■"  R 

PIC  X  (6)  . 

11 88000C 

117600 

o  - 

DO  95-IN-4 

PIC  X  (4)  . 

1189CCCC 

1 1  7  7  0  c 

05 

FILLER 

PIC  X  (6)  . 

119CCCCC 

117800 

05 

DC9S-IN-5 

PIC  X  (4)  . 

11910000 

117900 

/*.  E, 

F I LLE? 

PIC  X  (6)  . 

11 920000 

neooo 

•J  - 

D095-IN-6 

PIC  X  (4)  . 

11930CCC 

118100 

25 

FILLER 

PIC  X  16)  . 

11940000 

118200 

05 

D095-IN-7 

PIC  X  (4)  . 

1 1 9500CC 

118300 

r  e. 

FILLER 

PIC  X  (6)  . 

11960000 

118400 

C  5 

D095-IN-8 

PIC  X  (4)  . 

11970000 

118500 

r  c. 

FILLER 

PIC  X (6) . 

11980000 

118600 

C  5 

D095-IN-9 

PIC  X (4! . 

11990000 

118700 

C  5 

FILLER 

PIC  X  (6)  . 

1200000C 

118800 

0  5 

0095-IN- 10 

PIC  X  (4)  . 

1201 0000 

118900 

05 

FILLED 

PIC  X  (263)  . 

12020000 

: ; 9c::* *  * 

*  W  *  *  ' 

119100  01 

WS* 

-Z2-PEC. 

12040000 

119200 

0  5 

1M-HDR-Z2. 

12050000 

119300 

io  :m-file-:d-z2 

PIC  X  (5)  . 

12060000 

1  1  94  00 

10  IK-RECF-:0-Z2 

PIC  X (7) . 

12070000 

: : 95C2 

10  HDR-LRO-22 

PIC  XXX. 

12080000 
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1 1 96C  r 

1C  HDR-FGC-Z2 

PIC  X  (4)  . 

12C°?GCC 

119  f SC 

10  HDR-F-REL-Z2 

PIC  X. 

12100000 

119800 

10  HDR-NI IN-Z2 

PIC  X  (3)  . 

12II000C 

::99:: 

10  PRIN7-CCDE-Z2 

PIC  X. 

12I200C0 

1200CC 

10  SEQ-DATA-Z2 

PIC  X (20) . 

12130000 

12C1CC 

05 

FILLER 

PIC  XXX. 

12140000 

1 20200 

C5 

D093-IN-Z2-1 

PIC  X  (4)  . 

12150C0C 

120300 

05 

FILLER 

PIC  X  (5)  . 

12160000 

120400 

05 

D094-IN-22-1 

PIC  X (8) . 

12170000 

120500 

05 

FILLER 

PIC  XX. 

1218000C 

120600 

05 

D094-IN-Z2-2 

PIC  X  (8)  . 

12190000 

12000 

Oft 

FILLER 

PIC  XX. 

12200000 

120800 

05 

D094-IN-Z2-3 

PIC  X  (8)  . 

12210000 

120900 

05 

FILLER 

PIC  XX. 

1222C00C 

1 2 1 C  0  0 

05 

C094-IN-Z2-4 

PIC  X (8) . 

12230000 

12: ioc 

05 

FILLER 

PIC  XX. 

12240000 

121200 

05 

D094-IN-22-5 

PIC  X (8)  . 

1225000C 

121300 

05 

FILLER 

PIC  XX. 

12260C00 

121400 

C5 

0C94-IN-22-6 

PIC  X  (8)  . 

12270000 

121500 

05 

FILLER 

PIC  XX. 

12280000 

121600 

C5 

DC94-IN-Z2-7 

PIC  X (8) . 

12290000 

1212CC 

05 

FILLER 

PIC  XX. 

12300000 

121800 

r  ft 

DO 94-IN-Z2-8 

PIC  X  (8)  . 

12310000 

. 2 - 9v  _ 

05 

FILLER 

PIC  XX. 

12320000 

122:0: 

C5 

DC  94 -IN-22-9 

PIC  X  £  8 )  . 

.2j3GCGC 

1 2  2 1 2  2 

C  5 

FILLER 

PIC  XX. 

12340000 

122200 

o  ft 

d:94-:n-z2-ic 

PIC  X (8)  . 

12350000 

122  3C  2 

05 

FILLER 

PIC  XX. 

12360000 

122400 

C  5 

FILLER 

PIC  X  (16)  . 

12 z~ZZZZ 

122500 

r  ft 

D093-IN-Z2-2 

PIC  X ( 4 ) . 

12380000 

1 2  2 1 C  C 

05 

FILLER 

PIC  X  (5)  . 

12390000 

1 22  **  Z  Z 

FILLER 

PIC  XX. 

124C000C 

122800 

05 

D095-IN-Z2-I 

PIC  X  (4)  . 

124:00 cc 

122900 

05 

FILLER 

PIC  X  (  6)  . 

1242C00C 

123111 

O  ft 

DC95-1N-Z2-2 

PIC  X  (4)  . 

12430000 

123.22 

n  ft 

FILLER 

PIC  X  (6)  . 

1244000 C 

123200 

«  c 

DC  95-IN-Z2-3 

PIC  X  (4)  . 

1 2450C0C 

u  - 

FILLER 

PIC  X  (6)  . 

12460000 

123400 

«"•  ft 

DO  95 -I N-Z2-4 

PIC  X  (4)  . 

12470000 

123500 

*  ft 

FILLER 

PIC  X  (  6)  . 

12480000 

123600 

G5 

D095-IN-22-5 

PIC  X  (4)  . 

* 249CC0C 

123000 

r  ft 

f:  l:  f.r 

PIC  X (6)  . 

-  2  5  0  0  C  0  C 

123800 

r  ft 
^ 

DC95-IN-Z2-6 

PIC  X  (4)  . 

12510000 

123900 

C  5 

PIC  X  (6)  . 

12520000 

124000 

o  ft 

D095-IN-Z2-7 

PIC  X  (4)  . 

1253C00C 

124100 

2  5 

FILLER 

PIC  X (6)  . 

1254  00G0 

124200 

a  ft 
'j  z 

D095-IN-Z2-8 

PIC  X  (4)  . 

12550000 

124321 

r>  c, 

FILLER 

PIC  X  (  6)  . 

12560000 

124400 

0  5 

DC95-IN-Z2-9 

PIC  X  (4)  . 

12570000 

124500 

C  5 

FILLER 

PIC  X (6)  . 

12580000 

124600 

05 

DC95-1N-Z2-1C 

PIC  X  (  4 )  . 

12590000 

1  2  4  0  0  0 

05 

FILLER 

PIC  X (138)  . 

12600000 

124800’* 

»»*** 

*******«*»»***»f*»*» 

********************W******»*»**»*** 

’ 1 24  9C  G*  * 

OUTPUT  RECORDS 

”12620000 

125CCC’” 

»  *  *  *  » 

»*•*****»***»*»•*■*** 

**»**********«**★*«■»’*******•*******»* 

”12630000 

1 251 GC  01 

OUT 

-REC-1 . 

12  64  COCO 

125200 

05 

D046D-1 

PIC  X  ( 9 )  . 

12650000 

125300 

C  5 

PRINT-CODE-! 

PIC  99  VALLE  01. 

12660C0C 

1254C0 

cs 

B045-I 

PIC  9(5)  . 

12670000 

125500 

05 

C016-1 

PIC  X. 

12680000 

1256CC 

05 

CO  1 2-1 

PIC  9(5)  . 

12690000 

125700 

C  5 

B067E-I 

PIC  X. 

12700000 

125800 

0  5 

BC07-I 

PIC  X. 

127100CC 

125900 

05 

CGC5-I 

PIC  XX. 

1272CCC0 
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12  6CCC 

05 

BC55-1 

PIC 

9(6) .99. 

1 2730CC0 

1 2  61 0  C 

05 

C0C4-1 

PIC 

X  (22)  . 

12740000 

126200 

05 

30C2B-1 

PIC 

XXX. 

12750C00 

126300 

C5 

C001A-1 

PIC 

X  ( 4  )  . 

12760000 

126400 

05 

C0C1B-1 

PIC 

X. 

12770C0C 

12650C 

05 

CCC3-1 

PIC 

XX. 

12780000 

126600 

05 

C0C3A-1 

PIC 

X. 

12790000 

12670C 

05 

C042-1 

PIC 

X  (4  )  . 

12800000 

126800 

05 

D010-A-D-1 

PIC 

X  (5)  . 

12810000 

12690C 

05 

C028-1 

PIC 

X. 

12820000 

121000 

05 

D014A-1 

PIC 

XX. 

12830000 

127100 

05 

C0C9-1 

PIC 

XX. 

12840000 

127200 

05 

BC01-1 

PIC 

X  (5)  . 

12850000 

127300 

05 

3011A-1 

PIC 

99.99. 

12860000 

127400 

05 

D025DEF-E089-1 

PIC 

X  ( 4 )  . 

12870000 

127500 

05 

C003B-1 

PIC 

XX. 

12880000 

: 2760C 

05 

B053-1 

PIC 

9 (6) . 99. 

12890000 

127700 

05 

FILLER 

PIC 

X  (36)  . 

12900000 

-2‘78CC'r  *  ** 

*  *  *  * 

127900  Cl 

OUT 

-REC-2 . 

12920000 

128000 

05 

D046D-2 

PIC 

X  ( 9)  . 

12930000 

128100 

05 

PRINT-COCE-2 

PIC 

99  VALUE  02  . 

12940000 

128200 

C5 

AC05-2 . 

12950000 

128300 

10  A005-2-V 

PIC 

X. 

12960000 

128400 

10  A005-2-N 

PIC 

9(7)  . 

1297C0CC 

128500 

C5 

A005A-2. 

12980000 

128600 

10  ACC5A-2-K 

PIC 

X. 

12990000 

128‘7CC 

1C  ACC5A-2-N 

PIC 

9(7)  . 

.  T  -»  ri  ^ 

128800 

05 

B074-2 . 

,  -  «  - 

128900 

10  BC74-2-V. 

PIC 

X. 

1 3C20000 

129000 

10  BC74-2-N 

PIC 

9(5)  .9. 

1303CC00 

129100 

05 

A011-2 

PIC 

9(8)  . 

13040000 

129200 

05 

FC  C  7-2 

PIC 

9.99. 

13050000 

129300 

05 

0008-2 

PIC 

X  (10)  . 

1 30600CC 

129400 

«  C. 

FILLER 

PIC 

X  (88)  . 

13C70CC0 

129600  01 

OUT 

-REC-3  . 

1 3090000 

1297C0 

r.  z 
— 

00460-3 

PIC 

X  ( 9)  . 

13100000 

129800 

r-  t 

PRINT-CCTE-3 

PIC 

99  VALUE  03. 

1311CC0C 

129900 

05 

B012-3012C-3 

PIC 

9.99. 

13120000 

1 30 wCC 

05 

BC12F-3 

PIC 

9.99. 

131300CC 

030100 

05 

F009-3 

PIC 

9.99. 

1 31 4  0000 

130200 

05 

0012-3 

PIC 

XX. 

13150000 

130300 

05 

r\  a  -  ^  _  s 

PIC 

X. 

1316C00C 

1304CC 

05 

D120-3 

PIC 

XX. 

1 31  *70000 

130500 

05 

BO  5  9-3 

PIC 

9(7)  .99. 

13180000 

1 3  0  60  0 

C  5 

FILLER 

PIC 

X  (1C6)  . 

13190000 

1307CC»’*' 

*  *  *  * 

******************* 

********************** 

********»*»******^32C00CC 

1308CC  01 

OCT 

-REC-4 . 

1321CCCC 

130900 

05 

004  60-4 

PIC 

X  (9)  . 

132200CC 

131000 

05 

PR1NT-CODE-4 

PIC 

99  VALUE  04. 

1323000C 

1311 CC**** 

*  *  *  *  *  *  ******  *  *  *  »  »  £^7 

7Y  ENTRY  1 

************ 

......... »**»»*»*132400CC 

131200 

05 

AC  01 -4-1 

PIC 

XXX. 

1325000C 

131300 

05 

B046A-4-1 

PIC 

9(5)  . 

1326000C 

1 31 4  SC 

05 

A012A-4-1 

PIC 

X. 

1 327C00C 

13150C 

05 

PL-PROC— OST-4-1  . 

13280000 

131600 

1 

0  PL-PROG-4  -1  -y. 

PIC 

X. 

1329000C 

1 3 1 ICC 

1 

0  PL-PROG -4-1-N 

PIC 

9(7)  . 

13300000 

131800 

05 

C0C3E-4-1 

PIC 

X. 

13310000 

1319DC 

05 

A012-4-1 . 

13320000 

132CC0 

1C  A012-4-1-M 

PIC 

X. 

13330000 

132100 

10  A012-4-1-N 

PIC 

9  '’’I  . 

1 334000C 

132200 

0  5 

A021A-4-1 . 

13350000 

132300 

10  A021A-4-1 -X 

PIC 

X. 

1 3360000 
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132400 

10  A021A-4-1 

-N  PIC 

9(6)  . 

13370000 

232500 

05 

ACC8B-4-1 . 

13380000 

13260C 

10  A008B-4-1 

-M  PIC 

X. 

13390000 

132100 

10  A0083-4-1 

-N  PIC 

9(7)  . 

2  340000C 

132800 

05 

FILLER 

PIC 

X  (88)  . 

13410000 

132900* 

*  *  * 

**»*****•»»»«*****« 

********************************** 

**********13420000 

233C0C 

Cl 

OUT 

-REC-S. 

134300C0 

133100 

05 

D046D-5 

PIC 

X  <  9)  . 

13440000 

133200 

05 

PRINT-CODE-5 

PIC 

99  VALUE  05. 

13450000 

13330C 

05 

K001-5 

PIC 

XXX. 

13460000 

133400 

05 

K002-L001-5 

PIC 

X  (1 5)  . 

13470000 

133500 

05 

L0C1A-5 

PIC 

X  ( 4  )  . 

13480000 

133600 

05 

L022-5 

PIC 

X  ( 6)  . 

13490000 

133700 

05 

A001-5 

PIC 

XXX. 

13500000 

133800 

05 

A001-S-2ND 

PIC 

XXX. 

13510000 

133900 

05 

ORIG-QTY-5 

PIC 

9(7)  . 

13520000 

134000 

05 

C003E-5 

PIC 

X. 

13530000 

13410C 

05 

LOO  9-5 

PIC 

9(5)  . 

13540000 

1 3  420  C 

CS 

LC-34-5  . 

13550000 

134300 

10  LC34-5-M 

PIC 

X. 

13560000 

134400 

10  L034-S-N 

PIC 

9(6)  . 

13570000 

134500 

05 

A012A-5 

PIC 

X. 

13580000 

1 3  4  600 

05 

A012A-5-2ND 

PIC 

X. 

13590000 

134700 

05 

FILLER 

PIC 

X  (74)  . 

13600000 

134800* 

*  9wC* 

* 

1350CC 

c: 

OUT 

-REC-6. 

1363000C 

- 

05 

"70460-6 

PIC 

X  (9)  . 

13640000 

135200 

05 

PRINT-CODE -6 

PIC 

99  VALUE  06. 

13650000 

135300 

C5 

K001-6 

PIC 

XXX. 

136600CC 

135400 

05 

KC02-6 

PIC 

X  (14)  . 

13670000 

135500 

05 

AC12A-6 

PIC 

X. 

2  3680000 

135600 

05 

KOI  7-6 

PIC 

X  (6)  . 

13690000 

13570C 

05 

K006-6 

PIC 

9(7)  . 

1370000C 

135800 

05 

KOI  8-6 

PIC 

9(5)  . 

1372000C 

135900 

05 

K024-6 

PIC 

XXX. 

13720000 

136CCC 

05 

FILLER 

PIC 

X  (90)  . 

13730000 

i 3  6*  CC  * 

136200 

c: 

OUT 

-REC-7. 

1375C000 

136300 

05 

D046D-7 

PIC 

X  (9)  . 

1376CC00 

136400 

05 

PRINT-CCDE-7 

PIC 

99  VALUE  07. 

13770G0C 

136500 

05 

S016-7 

PIC 

X  <  9)  . 

13780001 

136600 

05 

DC16A-7 

PIC 

99. 

13790000 

136700 

05 

D016-7-2 

PIC 

X  (9)  . 

13800000 

136800 

05 

D016A-7-2 

PIC 

99. 

138100CC 

136900 

C5 

D016-7-3 

PIC 

X  (9)  . 

13820000 

137000 

05 

D01 6A-7-3 

PIC 

99. 

13830000 

137100 

05 

DC16-7-4 

PIC 

X  ( 9)  . 

13840000 

137200 

Q  ^ 

D016A-7-4 

PIC 

99. 

1385C000 

137300 

05 

D016-7-5 

PIC 

X  (9)  . 

13860CCC 

1 3  74  CC 

05 

D016A-7-5 

PIC 

99. 

13870000 

13750C 

05 

DC16-7-6 

PIC 

X  <  9)  . 

13880000 

137600 

05 

DC1 6A-7-6 

PIC 

99. 

13890000 

137700 

05 

D016-7-7 

PTC 

X  ( 9)  . 

1 3  90000C 

137800 

05 

D016A-7-7 

PIC 

99. 

13910000 

137900 

05 

D016-7-8 

PIC 

X  (9)  . 

1392000C 

138000 

05 

0016A-7-8 

PIC 

99. 

13930000 

138100 

05 

D016-7-9 

PIC 

X  (9)  . 

13S40C00 

138200 

05 

DO  1 6A-7-9 

PIC 

99. 

1 395000C 

13830C 

05 

D016-7-10 

PIC 

X  (9)  . 

13960000 

13840 

c 

05  D016A-7-10 

PIC  99. 

13970000 

13850C 

05 

FILLER 

PIC 

X  (19)  . 

13980000 

138600* 

»  *  *  * 

************** 

*«***w****#****#***ir**************«*****  +  *ir*23990000 

13870C 

c: 

OUT 

-REC-8. 

14000000 
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138800 

05 

D046D-8 

PIC  X  { 9)  . 

14010000 

138900 

05 

PRINT-CODE-8 

PIC  99  VALUE  08. 

14020000 

1 3  9000 

14030000 

139100'" 

»  *  »  *  * 

******** ....APPLICATION 

ENTRY  I**"""**""****"****** 

'14040000 

139200 

05 

D009-8-1 

PIC  X(10)  . 

14050000 

139300 

05 

DC11-8-1 

PIC  9(6)  . 

14060000 

139400 

05 

F018-8-1 

PIC  999. 

14070000 

1395C0 

05 

D013-8-1 

PIC  XX. 

14080000 

139600 

14090000 

139700"* 

********* ****** **APPLICATION 

ENTRY  2"""”""""""””” 

*14100000 

139800 

05 

D009-8-2 

PIC  X(10)  . 

14110000 

139900 

05 

D011-8-2 

PIC  9(6!  . 

14120000 

140000 

05 

F018-8-2 

PIC  999. 

14130000 

140100 

05 

D013-8-2 

PIC  XX. 

14140000 

140200 

14150000 

140300******** 

************ APPLICATION 

ENTRY  3*****"*""******"*"'*' 

*14160000 

140400 

05 

D009-8-3 

PIC  X (10) . 

14170000 

1 4  0500 

05 

D011-8-3 

PIC  9(6). 

14180000 

140600 

05 

F018-8-3 

PIC  999. 

14190C0C 

14C7CC 

05 

D013-8-3 

PIC  XX. 

142C0000 

140800 

140900"" 

*  *  *  * 

141000 

05 

D009-8-4 

PIC  X(1C)  . 

141100 

05 

DC!" -6-4 

PIC  9  (6)  . 

141200 

05 

FC18-8-4 

PIC  999. 

141300 

05 

DC13-8-4 

PIC  XX. 

14140- 
'  4  -  500'"' 

*  *  *  * 

1 41 600 

05 

DC  0  9-8-5 

PIC  X  (10)  . 

1 4 1 1 0  0 

05 

D011-8-5 

PIC  9(6). 

141800 

05 

F018-8-5 

PIC  999. 

141900 

05 

D013-8-5 

PIC  XX. 

►***★»*» 


»■*«****« 


1 4  2  C  0  C 
142100""' 


»..*..,..».*.»*AP?L?CATION  ENTRY  6"’"”" 


142200 
1423CC 
142400 
142S0C 
142600' 

1  42"’00 
142800""'" 
142900"”'" 
143000  01  01 


05  0009-8*6 
05  D011-8-6 
05  F018-8-6 
05  D013-8-6 


05  FILLER 

************  ******* 


T-REC-9. 


PIC  X  (10)  . 

PIC  9(6) . 

PIC  999. 

PIC  XX. 

»»»■*»#***»*******«**'»*•* 
PIC  X  (3)  . 

t*«-*******w*w*«*****iririi 


►  **★•»*  * 


143100 

05 

DC46D-9 

PIC 

X  ( 9)  . 

143200 

05 

PRINT-CODE-9 

PIC 

99  VALUE  09 

143300 

05 

K002-K020-9 

PIC 

X (1 5)  . 

143400 

05 

KC36-9 

PIC 

9(5)  . 

143500 

05 

K024-9 

PIC 

XXX. 

1 4  3  6  0  C 

05 

K022-9 

FIC 

XX. 

1437CC 

05 

K025-9 

PIC 

99. 

1438CC 

05 

KC26-9 

PIC 

XX. 

143900 

05 

FILLER 

PIC 

X  (100)  . 

144000 
1 4  4 1  CO 
144200  Cl 
144300 
144400 
14450C 
144600"” 


"******************** 


*********** 


********** 


OUT-REC-IO. 

05  D046D-1C 

05  PRINT-CODE -10 


PIC  X  (9)  . 

PIC  99  VALUE  10. 


"""""'""""1ST  REFERENCE  ENTRY*"""""""" 


144700 

144800 

05 

CC35-B-C-1 0-1 

PIC 

X  (5)  . 

144900 

05 

C038-10-1 

PIC 

X. 

145000 

05 

D0C1-C004C-10-1 

PIC 

X  (32) 

145100 


14210000 
"”14220000 
14230000 
14240000 
1425000C 
14260000 
1427C0CC 
"”14280000 
14290000 
14300000 
1431000C 
14320000 
1433000C 
""14340C0C 
14350000 
14360000 
1 43700CC 
14380000 
"”14390000 
14400000 
"”1441  0000 
""1442C00C 
14430000 
14440000 
14450000 
14460000 
1447000C 
1448000C 
14490000 
1 450000C 
14510000 
1 452000C 
""14530000 
14540000 
14550000 
14560000 
1 457000C 
14580000 
""14590000 
14600000 
14610000 
14620000 
14630000 
1 464000C 
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14S2C0* 

145300 

««««*** 

REFERENCE 

ENTRY**  ***********”*****  ****14650000 

1466000C 

145400 

05 

C035-B-C-10-2 

PIC 

X  (5)  . 

14670000 

145500 

05 

CC38-10-2 

PIC 

X. 

14680000 

14560C 

145700 

145800 

05 

D001-C004C-10-2 

PIC 

X  (32)  . 

14690000 

14700000 

14710000 

145900* 

146000 

******* 

REFERENCE 

ENTRY  ***************** 

*******14720000 

14730000 

146100 

05 

C035-B-C-1 0-3 

PIC 

X  (5)  . 

1 4740000 

146200 

05 

C038-10-3 

PIC 

X. 

14750000 

146300 

J  5 

D001-C0C4C-10-3 

PIC 

X  (32)  . 

14760000 

146400  14770000 

146600  14790000 


146700 

05 

FILLER 

PIC  X  (15)  . 

14800000 

146800* 

*  * 

»  *  *  «  « 

14690C 

01 

OUT 

-REC-11 . 

148 2000C 

147000 

05 

DC46U-11 

PIC  X (9) . 

1 483000C 

147100 

05 

PRINT-CODE-11 

PIC  99  VALUE  11 . 

14840000 

147200 

05 

D093-11 

PIC  X  (4)  . 

14850000 

147300 

05 

D095-11-1 

PIC  X  (4)  . 

1 4  86000C 

14740C 

05 

DO  95-1 1 -2 

PIC  X  (4)  . 

14870000 

147500 

05 

D09S-11-3 

PIC  X  (4)  . 

14880000 

147600 

Q  S, 

D095-11-4 

PIC  X  (4)  . 

14890000 

147700 

05 

DC9S-1I-5 

PIC  X  (4)  . 

14900000 

147800 

05 

D095-I1-6 

PIC  X  (4  )  . 

14910000 

147900 

05 

D095-11-7 

PIC  X  (4)  . 

14920000 

148000 

05 

D095-11-8 

PIC  X  (4)  . 

14930000 

148100 

05 

DC95-11-9 

PIC  X ( 4 ) . 

1494COOO 

148200 

05 

D095-11-10 

PIC  X  (4)  . 

14950000 

148300 

05 

FILLER 

PIC  X (85) . 

1496000C 

148400" 

•  *  » 

»  *  *  »  * 

*»*********'»*** 

******»«*******★«»********»* 

148500 

01 

OUT 

-REC-12. 

1498C00C 

14860C 

05 

DC46D-12 

PIC  X ( 9 ) . 

14990000 

1487CC 

05 

PRINT-CODE-12 

PIC  99  VALUE  12. 

15000000 

1 4  8  8  0  0 

05 

D093-12-1 

PIC  X  (4)  . 

15010000 

148900 

05 

D094-12-1 

PIC  X  (8)  . 

1502C0CC 

149000 

CS 

DO  94 -1 2 -2 

PIC  X  (8)  . 

15030000 

1 4  9i 00 

05 

DC  94 -1 2-3 

PIC  X  (8)  . 

15040000 

149200 

05 

DO  94 -12-4 

PIC  X  (8)  . 

15050C0C 

149300 

05 

DO  94-12-5 

PIC  X  (8)  . 

1506G00C 

149400 

05 

D094-12-6 

PIC  X  (8)  . 

1 507000C 

149500 

05 

D094-12-7 

PIC  X  (8) . 

15080C00 

1496CC 

05 

D094-12-8 

PIC  X  (8) . 

15090000 

149700 

05 

D094-12-9 

PIC  X  (8) . 

15100CCC 

149800 

05 

DC94-12-1 0 

PIC  X  (8) . 

1 511000C 

14990C 

05 

D093-12-2 

PIC  X  (4)  . 

15120000 

150000 

05 

DC95-12-1 

PIC  X  ( 4 ) . 

15130000 

1501  CO 

05 

DO  95-12-2 

PIC  X  (4  )  . 

15140000 

x  5  0  2  0  C 

05 

D095-12-3 

PIC  X  (4)  . 

15150000 

150300 

05 

D095-12-4 

PIC  X  (4) . 

15160000 

150400 

05 

D095-12-5 

PIC  X  (4)  . 

1517000C 

15050C 

05 

D095-12-6 

PIC  X  (4)  . 

15180000 

150600 

05 

D095-12-7 

PIC  X  (4  )  . 

15190000 

150700 

05 

D095-1 2-8 

PIC  X  (4)  . 

15200000 

150800 

05 

D095-12-9 

PIC  X  (4)  . 

1521000C 

15090C 

05 

D095-1 2-1 0 

PIC  X  (4)  . 

15220000 

151000 

05 

FILLER 

PIC  X. 

15230000 

1428GQ*************************************************** 

•»»»»»» »»«»«««•! 5240011 

01 

OUT 

-REC-13. 

15250C12 

05 

D046D-13 

PIC  X  (9) . 

15260012 

05 

PRINT-CODE-13 

PIC  99. 

15270012 

05 

A001-13 

PIC  XXX. 

15280012 
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05 

AC12A-13 

PIC  X. 

15290012 

05 

A014F-13 

PIC  X. 

15300012 

05 

K006-13 

PIC  9(7)  . 

15310012 

C  5 

►  *  »  * 

FILLER 

PIC  X  (117)  . 

15320012 

151100""”*’’***’*’*******’’’*****  *’*’*’"*"*****"****’*’*”**”** ’*15340000 
151200"  WS-NEG-ONE  IS  USED  TC  CREATE  NEGATIVE  NUMBERS  **15350000 
1513C0"""”"**"***"""*"""”’*’***’**’**’***"**’"*’**”""*153  60000 
151400  01  WS-NEG-ONE  PIC  S9  VALUE  -1.  15370000 
ISISO''  15380000 
151 600**  ***************  *****"****’’*******"************»»***’*******  "15390000 
151700*’  THESE  COUNTERS  ARE  USED  TO  HOLD  DOLLARS \CENTS  AND  **15400000 
151800’*  NUMBERS! DECIMALS  FOR  REDEFINING  INTO  A  COMPUTATION  FORMAT  **15410000 


151900’’" 

»  «  *  i 

r»»*»*«»»»**«W*W*W*******' 

15200C  01 

ws- 

-FORMAT-COUNTERS. 

15430000 

152100 

05 

HLD-B0S5-PRICE. 

15440000 

1522CC 

10  KLD-3C55-DOLL 

PIC  9(6) . 

1545000C 

1523C0 

10  HLD-B055-CENTS 

PIC  99. 

15460000 

152400 

05 

PRICE-BO 5 5 -HLD  REDEFINES 

HLD-B055-PRICE 

15470000 

15250C 

PIC  9  ( 6)  V99 . 

15480000 

152600 

05 

HLD-C008C-DEC 

PIC  999. 

15490000 

152700 

05 

DEC-CC08C-HLD  REDEFINES 

HLD-C008C-DEC 

15500000 

1528CC 

PIC  V999 . 

155100CC 

152900 

05 

HLD-B0 12-COMB. 

1 552000C 

153000 

10  HLD-3C12-NUM 

PIC  9. 

15530000 

153100 

10  HLD-3C12-DEC 

PIC  99. 

15540000 

153200 

05 

CCMB-B0 12 -HLD  REDEFINES 

HLD-B0 12-COMB 

1 5S500CC 

153300 

PIC  9V99 . 

15560000 

153400 

05 

HLD-B012F -COMB . 

15570000 

155500 

1C  HLD-B01 2F-NUM 

PIC  9. 

15580000 

153600 

1C  HLD-BC2  2F-DEC 

PIC  99. 

1SS9CCCC 

152700 

05 

COMB -B 0 1 2F -HLD  REDEFINE: 

S  HLD-B012F-COMB 

15600000 

153800 

PIC  9V99. 

15610000 

i  5  R  9  o  C 

05 

HLD-C023-COMB. 

15620000 

15400C 

10  HLD-CC23-NUV 

PIC  9(4)  . 

15630000 

1541CC 

1C  HLD-C023-DEC 

PIC  99. 

15640000 

154200 

05 

COMB-C023-HLD  REDEFINES 

KLD-C023-COMB 

1 56500CC 

154300 

PIC  9 ( 4 ) V9 9 . 

15660000 

154400 

n  c 

HLD-CC2  4 -COMB . 

-  .  'Tn-'ni' 

-  C  1  ^  Vrf  >-■ 

154500 

10  HLD-CC24-NUM 

PIC  9(4). 

15680000 

154600 

10  HLD-CC24 -DEC 

PIC  99. 

15690000 

154700 

05 

COMS-C024-HLD  REDEFINES 

KLD-CC24-COMB 

15700000 

154800 

PIC  9 ( 4 1 V99 . 

15710C0C 

154900 

05 

HLD-3C1 4A-COMB . 

15n20C0C 

1 5  50i0  0 

10  HLD-B01 4A-NUM 

PIC  9. 

15730000 

155100 

10  HLD-301 4 A-DEC 

PIC  999. 

15740000 

155200 

05 

C0M3-3C1 4A-HLD  REDEFINES  HLD-B01 4A-COMB 

15750000 

'  V’" 

PIC  9V999. 

15760000 

155400 

0  5 

HLD-BC1 1 A-COM3 . 

15770000 

155500 

1C  HLD-B011 A-NUM 

PIC  99. 

1578C00C 

155600 

10  HLD-B01 1 A-DEC 

PIC  99. 

15790000 

155700 

05 

COMB-B0 11A-HLD  REDEFINES  HLD-B01 1 A-COMB 

15800000 

155800 

PIC  99V99. 

1581 0000 

155900 

05 

HLD-301 IB-COME. 

I 582C0C0 

156000 

1C  HLD-BOllB-N’JM 

PIC  99. 

1583000C 

156100 

10  HLD-B01 I B-DEC 

PIC  9. 

15840000 

156200 

05 

COMB-BC1 IB-HLD  REDEFINES  HLD-B01 1 B-COMB 

15850000 

156300 

PIC  99V 9. 

15860000 

156400 

05 

HLD-B01 0-COMB . 

1587000C 

156500 

10  HLD-BC1 0-NUM 

PIC  99. 

15880000 

156600 

10  HLD-B01 0-DEC 

PIC  9. 

15890000 

156700 

05 

COMB-B0I 0-HLD  REDEFINES 

HLD-B01 O-COMB 

15900000 

156800 

PIC  99V9 . 

1591000G 

156900 

O  C. 

HLD-3077-COM3. 

15920000 
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157CCC 

10  HED-S077-NUM 

PIC  9  (5)  . 

15930000 

157100 

10  HED-B077-DEC 

PIC  9. 

15940000 

15720C 

05 

COMB-BO 7 7 -HLD  REDEFINES  HLD-B077-COMB 

15950000 

157300 

PIC  9  ( 5 ) V9 . 

1596000 C 

15740C 

05 

HLD-B077A-COMB. 

15970000 

157500 

10  HLD-B077A-NUM 

PIC  9(5) . 

15980000 

157600 

10  HLD-B077A-DEC 

PIC  9. 

15990000 

157700 

05 

COMB-BO 7 7A-HLD  REDEFINES  HLD-B077A-COMB 

16000000 

157800 

PIC  9  (5 )  V9 . 

16010000 

157900 

05 

HLD-B077E-COMB. 

16020000 

158000 

10  HLD-B077B-NUM 

PIC  9(5)  . 

16030000 

158100 

10  HLD-B077B-DEC 

PIC  9. 

16040000 

158200 

05 

COMB-BO 7 7B-HLD  REDEFINES  HLD-B077B-COMB 

16050000 

158300 

PIC  9  (5 )  V9 . 

16060000 

158400 

05 

HLD-B0 77C -COMB. 

16070000 

158500 

10  HLD-B077C-NUM 

PIC  9(5)  . 

16080000 

1586C0 

10  HED-BC77C-DEC 

PIC  9. 

16090000 

158700 

05 

COMS-8077C-HLD  REDEFINES  HLD-B077C-COMB 

16100000 

15880C 

PIC  9 ( 5 ) V9 . 

16110000 

15890C 

05 

HLD-B077D-COMB. 

1 612000C 

159000 

10  HLD-B077D-NUM 

PIC  9(5)  . 

16130000 

159100 

10  HLD-B077D-DEC 

PIC  9. 

16140000 

159200 

05 

COMB-B0  77 D-HLD  REDEFI 

NES  HLD-B077D-COMB 

16150000 

1 5  930  0 

PIC  9  (5 )  V9 . 

1  61  60000 

159400 

05 

HLD-B077E-COMB. 

1 6170000 

159500 

10  HED-BC77E-NUM 

PIC  9(5)  . 

16180000 

159600 

10  HED-BC77E-DEC 

PIC  9. 

161  9  C  0  0  C 

1 5  9~C  0 

0  5 

COMB-B0 7 7E-BLC  REDEFI 

NES  KLD-B077E-COMB 

16200000 

159800 

PIC  9 ( 5 ) V9 . 

16210000 

159900 

05 

HLD-B053-PRICE. 

1622CCC0 

'  / 

-i  O  -  W-  W  O 

10  HLD-30S3-DCEE 

PIC  9(6). 

16230000 

*  r  »  •  r>  *\ 

C  V  .  O  V 

10  HED-B0 S3 -CENTS 

PIC  99. 

16240000 

160200 

05 

PRICE-BO 5 3 -BED  REDEFINES  HLD-B053-PRICE 

16250000 

1 60300 

PIC  9  ( 6)  V99 . 

1626C000 

160400 

05 

HLD-AG23B-COMB. 

16270000 

160500 

10  HLD-A023B-NUM 

PIC  999. 

16280000 

160600 

10  HLD-AC23B-DEC 

PIC  999. 

1629C0CC 

160700 

A  £ 

COM3-AC2 33-HED  REDEFI 

NES  HLD-A02  3B-COMB 

16300000 

160800 

PIC  999V999. 

16310000 

160900 

05 

HED-8C1 9A-COMB . 

16320000 

161000 

10  HED-301 9A-NUM 

PIC  999. 

16330000 

161100 

1C  HDD -BO  1 9A-DEC 

PIC  9(4) . 

16340000 

161200 

05 

COMB-BC 1 9A-HLD  REDEFINES  HED-B01 9A-COMB 

2  63500  v  0 

16130  0 

PIC  999V9 (4)  . 

16360000 

1  6 1 4  0  C 

05 

HED-A01 9D-COMB . 

16370000 

1  6'  500 

1C  HED-AOl 9D-NUM 

PIC  9. 

1 638000C 

161600 

10  HED-AC1 9D-DEC 

PIC  9(4). 

16390000 

161700 

05 

COMB-AOl 9D-HED  REDEFI 

NES  HED-AC1 9D-COM3 

164C0CC0 

161800 

PIC  9V9  (4)  . 

16410000 

161900 

CS 

HED-A01 9E-COMB. 

1642000C 

162000 

10  HLD-A01 9E-NUM 

PIC  9. 

16430000 

1621CC 

10  HLD-A01 9E-DEC 

PIC  9(4). 

1644000C 

16 2200 

05 

COMB-AOl 9E-HLD  REDEFI 

NES  HLD-AOl 9E-COMB 

16450000 

162300 

PIC  9V9  (4)  . 

1 64  6000  C 

i 624  0C 

05 

HED-BC22D-COMB . 

16470000 

16250C 

10  HLD-3C22D-NOM 

PIC  99. 

16480000 

162600 

10  HED-BC22D-DEC 

PIC  9(4). 

16490000 

162700 

05 

COMB-BO 2 2D -h'ED  REDEFI 

NES  HLD-B022D-COMB 

16500000 

162800 

PIC  99V9 ( 4 ) . 

16510000 

162900 

05 

HLD-B022E-COMB . 

16520000 

163000 

10  HLD-B022E-NUM 

PIC  99. 

16530000 

163100 

10  HLD-B022E-DEC 

PIC  9  (4)  . 

16540000 

163200 

05 

COMB-BO 2 2E -HLD  REDEFINES  HLD-B022E-COMB 

16550000 

1  63300' 

PIC  99V9  (4)  . 

16560000 
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163400 

05 

H1D-B01 9C-C0MB. 

16570000 

163500 

1C  HLD-BC1 9C-NUM  PIC  999. 

1 658C000 

163600 

10  HLD-B01 9C-DEC  PIC  999. 

1 659000C 

163700 

05 

COMB-B01 9C-HLD  REDEFINES  HLD-B01 9C-C0M3 

16600000 

163800 

PIC  999V999. 

16610000 

163900 

05 

H.LD-B055A-PRICE. 

16620000 

164000 

10  HLD-B055A-DOLL  PIC  9(6). 

16630000 

164100 

10  HLD-B055A-CENTS  PIC  99. 

1664000C 

164200 

05 

PRICE-B05 5A-HLD  REDEFINES  HLD-BC55A-PRICE 

16650000 

164300 

PIC  9  ( 6)  V99. 

16660000 

164400 

05 

HLD-F007-COMB. 

16670000 

1645C0 

10  HLD-F007-NUK  PIC  9. 

16680000 

164600 

10  HLD-F0C7-DEC  PIC  99. 

16690000 

164700 

05 

COMB-FOC7-HLD  REDEFINES  HLD-F007-COMB 

16700000 

16480C 

PIC  9V99. 

16710000 

164900 

05 

HLD-F009A-COMB. 

16720000 

165000 

10  HLD-F009A-NUM  PIC  9. 

16730000 

165100 

10  HLD-FOQ 9A-DEC  PIC  99. 

16740000 

165200 

05 

COMB-FOC9A-HLD  REDEFINES  HLD-FOO 9A-COMB 

16750000 

16530C 

PIC  9V99 . 

16760000 

165400 

05 

HLD-B020F-B-COMB. 

1 677000C 

165500 

10  HLD-B020F-B-NUM  PIC  9. 

1 678000C 

165600 

10  HLD-B020F-B-DEC  PIC  9(4). 

16790000 

165700 

05 

COMB -BO 2 OF -3 -HDD  REDEFINES  HLD-SG20F-B-COM3 

1 6800000 

165800 

PIC  9V9999 . 

16810CC0 

165900 

05 

HLO-ACl 9F-B-COKB . 

1682000 C 

166000 

10  HLD-A01 9F-3-NUM  PIC  9. 

16830C0C 

1 661 CC 

10  HLD-A01 9F-B-DEC  PIC  9(4). 

16840000 

166200 

05 

COM3-A01 9F-B-HLD  REDEFINES  HLD-AC1 9F-B-COM3 

1 6850000 

166300 

PIC  9V9999. 

16860000 

166400 

n  c. 

Vrf  -J 

H1D-3C12B-C0MB. 

16870000 

166500 

10  HLD-B012B-NUM  PIC  9. 

1 688C00C 

166600 

10  HLD-B01 2B-DEC  PIC  9. 

1689C000 

166700 

05 

COMB-BCI 2B-HLD  REDEFINES  HED-BC 123-COMB 

i 6900000 

166800 

PIC  9V9 . 

1691C0CC 

166900 

05 

HLD-3G12D-COM3. 

16920000 

167000 

10  HLD-30 1 2D-NUM  PIC  9. 

1 6930000 

167100 

10  HLD-BC12D-DEC  PIC  9. 

16940000 

167200 

05 

COM3 -BO  1 2D-HLD  REDEFINES  HLD-30 1 2D-COMB 

16950000 

167300 

PIC  9V9. 

16960000 

167400 

05 

HLD-B012-BO12C-COMB. 

16970000 

167500 

1C  HLD-BC12-BI1 2C-NCM  PIC  9. 

1698000C 

167600 

10  KLD-BC1 2-B01 2C-DEC  PIC  99. 

16990000 

16770C 

05 

COMB-B012-B012C-HLD  REDEFINES  HLD-B012-B01 2C-CCM3 

17000000 

167800 

PIC  9V99. 

17010000 

167900 

05 

HLD-FOC  9-COM3 . 

17020000 

168C00 

10  HLD-F009-NUM  PIC  9. 

17030000 

1681CC 

10  HLD-FCC9-DEC  PIC  99. 

17040000 

1 68200 

0  5 

COM3 -FOG 9-HLD  REDEFINES  HLD-FC09-COM3 

17CS00CC 

168300 

PIC  9V99. 

17060000 

168400 

05 

HLD-BC12E-COMB. 

17070000 

168500 

10  HLD-B01 2E-NUM  PIC  9. 

17080000 

168600 

10  HLD-B012E-DEC  PIC  99. 

1 709000C 

168700 

05 

COMB-BO 12E-HLD  REDEFINES  HLD-BC12E-COKB 

17100000 

168800 

PIC  9V99 . 

17110000 

168900 

0  c 

HLD-BCi 4C-DEC  PIC  999. 

17120000 

169000 

05 

DEC-B01 4C-HLD  REDEFINES  HLD-B01 4C-DEC 

17130000 

1 691 CC 

PIC  V999. 

17140000 

169200 

05 

HLD-AC2  3-1 -COMB . 

1715000C 

16930C 

1C  HLD-A023-1 -NUK  PIC  9(4). 

1716000C 

169400 

10  HLD-A023-1 -DEC  PIC  999. 

17170000 

169500 

05 

COMB-A023-1-HLD  REDEFINES  HLD-A023-1 -COMB 

17180000 

^  v  960 0 

PIC  9  (4 )  V999 . 

17190000 

169700 

C 

HLD-AG23-2-COMB . 

17200000 

I 


I 


I 
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169800 

10 

HLD-A023-2-NUM 

PIC  9(4). 

17210000 

169900 

10 

HLD-A023-2-DEC 

PIC  999. 

17220000 

170000 

05 

COMB-A023-2-HLD  REDEFINES  HLD-AC23-2-CCM3 

17230000 

170100 

PIC  9 ( 4 ) V999 . 

1 724000C 

170200 

05 

HLD 

-AC23-3-UOMB. 

1 72500C0 

170300 

10 

HLD-A023-3-NUM 

PIC  9(4). 

17260000 

170400 

10 

HLD -A 023-3-DEC 

PIC  999. 

17270000 

170500 

05 

COMB-A023-3-HLD  REDEF 

INES  HLD-A0 23 -3-COMB 

17280000 

170600 

PIC  9 ( 4 ) V999 . 

17290000 

170700 

05 

HLD 

-B059-PRICE. 

17300000 

170800 

10 

HLD-B059-DOLL 

PIC  9  (7)  . 

17310000 

170900 

10 

HLD-B059-CENTS 

PIC  99. 

17320000 

171000 

05 

PRI 

CE-B05 9-HLD  REDEFINES  HLD-B05 9-PRICE 

17330000 

171100 

PIC  9 (7 ) V99 . 

17340000 

171200’*” 

*  »  *  « 

******************************************** 

...... .**•**. ..J735Q000 

171300  01 

EOF 

-FLAG 

PIC  X. 

17360000 

171400”**’***’****”*****’*’*”’*’***’***”***** 

171500 

171600******************************************* 

171700  PROCEDURE  DIVISION. 

171800***************”*”******’*’*********’*’****’*** 

171900 


.**«*«. 


***»»..*.*.*** 


172000’ 

172100 

172200 

172300 

172400 

172SCC 

172600* 

172700 

172800 

172900 

173000 

173100 

1  7  32  0  0 

173300 

173400 

1 ^  35C  C 

173600 

173700 
173800 
173900* 
174000 
00  READ 
10JX1  A 


*i**»r»***#*»»»»irii»*t****«*t»»**»t«*«»»t*»t*t*»t*» 

MAINLINE -CONTROL-ROUTINE. 

PERFORM  INITIALIZATION. 

PERFORM  READ-AND-PROCESS  UNTIL  EOF-FLAG  EQUAL 
PERFORM  CLOSE-ROUTINE. 

STOP  RUN. 


INITIALIZATION  SECTION. 

INITIALIZE. 

OPEN  INPUT  B10JX1. 

OPEN  OUTPUT  OFILE1,  OFILE2,  OFILE3,  OFILE4, 

OFILE5,  OFILE6,  OFILE7,  OFILE8, 

OFILE9,  OFILE1C,  OFILE11,  OFILE12,  OFILE13. 
MOVE  'N'  TO  EOF-FLAG. 

MOVE  SPACES  TO  OUT-REC-1,  O’JT-REC-2,  OUT-REC-3,  OUT-REC- 
OUT-REC-5.  CUT-REC-6,  OUT-REC-7,  OUT-REC- 
OUT-REC-9,  OUI-REC-10,  OUT-REC-11,  CUT-RE 
CUT-REC-13. 

INITIALIZATION-EXIT. 

EXIT  . 

»***»*»*»»***»-»********w#»w**w*W***wir*****irw***’*r*»*»****-*»** 

READ-AND-PROCESS  SECTION. 

-PROCESS. 

I  END  MOVE  ' Y '  TO  EOF -FLAG  174300  GC 

ROUTINE. 

16700 


’”***17370000 
17380000 
...... 17390000 

17400000 
.... .*17410000 

17420000 
”.*”17430000 
1744C000 
7  7  4^2300 

1746C0CC 
17470000 
1 7480000 
”””174  90000 
1750C0C0 
175*0000 
17520000 
1753CC0C 
1754000C 
17550014 
17560000 
!,  17570000 

!,  17580000 

>12,1759001  4 
17600C14 
17610000 
1 7  62000  C 
”*”17630000 
176400CC 
17174200  ! 

TO  READ-EXIT 


;EAI 


74400 

74500 

74600* 

74700 

74800 

74900 

75000 

75100 

7520C 

7530C 

75400 

75500 

75600 

7570C 

75800 

75900 


IF  NIIN-CODE-I  NOT  NUMERIC 
GC  TO  READ-EXIT-ROUTINE 
PERFORM  ENTITY-SUM-EXIT 
ELSE 

IF  PRINT-CODE-I  EQUAL  'D' 

PERFORM  PROCESS-REC-D 
ELSE 

IF  PRINT-CODE-I  EQUAL  'F' 
PERFORM  PROCESS-REC-F 
ELSE 

IF  PRINT-CODE-I  EQUAL  'H' 
PERFORM  PROCESS-REC-H 
ELSE 

IF  PRINT-CODE-I  EQUAL  '  J' 
PERFORM  PROCESS-REC-J 
ELSE 


17680000 
17690000 
1770000C 
17710C0C 
17720000 
17730000 
17740000 
1775000C 
17760000 
17770000 
17780000 
1779000C 
1 780000C 
17810000 
17820000 
17830000 
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176C00 
176100 
176200 
176300 
176400 
176500 
176600 
176700 
176800 
176900 
177000 
177100 
177200 
177300 
177400 
177500 
177600 
177700 
17780C 
177900 
178000**** 
178100  rea: 
17820C 
1783CC*”’ 
1784C0*EN: 

1 78  5  CO’ENT' 
178600* 
178700**’* 
178800 
178900 

*  7QO*« 

179100 
179200 
1 793CC 
179400 
179500 
1 79600 
179700 
179800 
179900 
18C0CC 

_  8  ^  .  0  u 
180200 
00  MOVE 


pro: 

pro: 


IF  PRINT-CODE-I  EQUAL  * L’ 

PERFORM  PROCESS-REC-L 
ELSE 

IF  PRINT-CODE-I  EQUAL  'N' 

PERFORM  PROCESS-REC-N 

ELSE 

IF  PRINT-CODE-I  EQUAL  'P' 

PERFORM  PROCESS-REC-P 
ELSE 

IF  PRINT-CODE-I  EQUAL  'R' 

PERFORM  PROCESS-REC-R 
ELSE 

IF  PRINT-CODE-I  EQUAL  'T' 

PERFORM  PROCESS-REC-T 
ELSE 

IF  PRINT-CODE-I  EQUAL  'V' 

PERFORM  PROCESS-REC-V 
ELSE 

IF  PRINT-CODE-I  EQUAL  ' Z' 

PERFORM  MULTI -MOE -CHECK . 

r*ww»*««»*******»**»**»»********»**«*»»«»*ft«***********V*** 

I-EXIT-ROUTINE. 

EXIT. 

:ty-sum-exit  section. 

-SUM-EXIT. 

EXIT. 

:ess-rec-d  section. 

:ess-d-rec. 

MOVE  B10-INPUT-REC  TO  WS-D-REC. 

MOVE  HDR-NIIN-D  TO  D046D-1. 

MOVE  Cl  TO  PRINT-CODE-1. 

MOVE  B04S  TO  B045-1 . 

MOVE  C01 6  TO  C016-1 . 

MOVE  CC12  TO  C012-1 . 

MOVE  B067E  TO  B067E-1 . 

MOVE  BCC7  TO  BCC7-1 . 

MOVE  CCC5  TO  C005-1. 

MOVE  B055-DOLLARS-IN  TO  HLD-BC 5 5-DOLL. 

MOVE  BC55-CENTS-IN  TO  HLD-3C55-CENTS . 

MOVE  PRICE-BC55-HLD  TO  3C55-1. 

MOVE  CCC4  TO  CCC4-1 . 

BCC23  TO  BC02B-1.  180400 


17840000 
17850000 
17860000 
17870000 
17880C00 
17890000 
17900000 
17910000 
17920000 
17930000 
1794000C 
17950000 
17960000 
17970000 
17980000 
17990000 
1800000C 
18010000 
18020000 
1 803000C 
'**18040000 
18050000 
18060000 
"’18C7C0CC 
18080000 
18090000 
18100000 
'**18110000 
18120CC0 
18130000 
18140000 
1815CC0C 
18160000 
18170000 
18180000 
18190000 
1820000C 
18210000 
1 822C0CC 
18230000 
1824000C 
18250000 
18260000 
MOVE  C! 


TO 


coo 

1A-1  . 

16280000 

180500 

MOVE 

C001B  TO  COOiB-1. 

18290000 

1  80600 

MOVE 

C0C3  TO  C003-1 . 

1830000C 

18C7C0 

MOVE 

C003A  TO  CCC3A-1 . 

18310000 

1  8  0  8  0  0 

MOVE 

CO 4 2  TO  C042-1  . 

18320C0C 

18C90C 

MOVE 

D01GA-C  TO  DOI O-A-D-l . 

18330000 

181000 

MOVE 

CC28  TO  C028-1 . 

18340000 

18110  0 

MOVE 

D014A  TO  DC14A-1 . 

1835000C 

181200 

MOVE 

C009  TO  COO 9-1 . 

18360000 

181300 

MOVE 

B001  TO  B001-1 . 

18370000 

18140C 

MOVE 

BOi 1 A-NUM-IN  TO  HLD-B01 1A-NUM . 

1 8380C0C 

181500 

MOVE 

B011A-DEC-IN  TO  HLD-B01 1 A-DEC . 

18390000 

181600 

MOVE 

COMB-BC1 1A-HLD  TO  B011A-1. 

18400C00 

181700 

MOVE 

DC25DEF-E089  TO  DC25DEF-E08 9-1 . 

18410000 

i  8 1  8  0  C 

MOVE 

C003B  TO  C003B-1 . 

1 84200C0 

18190C 

MOVE 

B053-DOLLARS-IN  TO  HLD-B053-DOLL. 

18430000 

182000 

MOVE 

B053-CENTS-IN  TO  HLD-B053-CENTS . 

18440000 

182100 

MOVE 

PRICE-BO 5 3-HLD  TO  B053-1 . 

18450000 

18220C 

PERFORM  WRITE-REC-l-TO-FILE-1 . 

184600CC 

182300 

182400 

PROCESS-D-REC-EXIT. 

EXIT. 

18470000 

18480000 

182500’ 

182 600 

WRI TE-REC-l-TO-FILE-l  SECTION. 

1850000C 

18270 C 

KRITE-REC-1 . 

18510000 

182800 

MOVE  OUT-REC-1  TO  OUTPUT-REC-1. 

18520000 

182900 

WRITE  OUTPUT-REC-1. 

18530000 

18300C 

MOVE  SPACES  TO  OUT-REC-1. 

18540000 

183100 

WRITE-REC-l-EXIT. 

18550000 

183200 

EXIT. 

18560000 

183300************************************************ 

*18570000 

183400 

PROCESS-REC-F  SECTION. 

18580000 

18350C 

PROCESS-F-REC. 

18590000 

183600 

MOVE  B10-INPUT-REC  TO  WS-F-REC. 

18600000 

18370C 

MOVE  HDR-NIIN-F  TO  D046D-2. 

18610000 

183800 

MOVE  02  TO  PRINT-CODE-2. 

18620000 

183900 

IF  AOOS  LESS  THAN  2ERC 

18630000 

184000 

MOVE  TO  A005-2-M 

18640000 

184100 

ELSE 

18650000 

184200 

MOVE  SPACES  TO  A005-2-M. 

18660000 

184300 

MOVE  AOOS  TO  A005-2-N. 

1867C00C 

184400 

IE  A005A  LESS  THAN  ZERO 

18680000 

184500 

MOVE  TO  A005A-2-M 

18690000 

1 8  4  60  0 

ELSE 

187C00CC 

184700 

MOVE  SPACES  TO  A0C5/4-2-M. 

18710000 

184800 

MOVE  ACC5A  TC  A005A-2-N. 

1872C00C 

184900 

IF  BC 7  4  LESS  THAN  ZERO 

18730000 

185000 

MOVE  TC  3074-2-M 

18740000 

185100 

EZ-SE 

18750CCC 

1 8  5  2  0  C 

MOVE  SPACES  TO  B074-2-M. 

1876000C 

1 853CC 

MOVE  BC74  TO  B074-2-N. 

18770000 

00 

C/i 

o 

o 

MOVE  A021  TO  AC11-2. 

187800^0 

185500 

MOVE  FC07-NUM-IN  TC  HLD-F0C7-NUM. 

18790000 

185600 

MOVE  F307-DEC-1N  TO  HLD-F0C7-DEC . 

18800000 

185700 

MOVE  COMB-F007-HLD  TO  FC07-2. 

18810000 

18S8C0 

MOVE  DC08  TO  DC08-2. 

18820000 

1859CC 

perform  wr:te-rec-2-to-f:le-2. 

1 883C00C 

186000 

PROCESS-F-REC-EXIT. 

18840000 

186100 

EXIT. 

1 885000C 

186200’ 

».«»»*»»»». 60000 

186300 

wr:te-rec-2-to-f:le-2  section. 

18870000 

186400 

WRITE -REC-2. 

18880000 

186500 

MOVE  OUT-REC-2  TO  OUTPUT-REC-2 . 

18890000 

186600 

WRITE  OUTPUT-REC-2. 

189C000C 

166700 

MOVE  SPACES  TC  OUT-REC-2. 

18910000 

186800 

WRITE-REC-2-EXI T . 

1892000C 

186900 

EXIT. 

18930000 

187000’ 

r»*f***»****»**ww*****ir***-**-**'*-*«'»*-******»»***** 

*18940000 

1 8  71  CO 

PROCESS-REC-H  SECTION. 

1 8  95C30C 

187200 

PROCESS-H-REC. 

18960000 

1873C0 

MOVE  B10-INPUT-REC  TO  WS-H-REC. 

1 897000C 

187400 

MOVE  HDR-NIIN-H  TO  DC46D-3. 

18980000 

187500 

MOVE  03  TC  PRINT-CODE-3. 

18990C00 

1876CC 

MOVE  B012-NUM-IN  TO  HLD-B012-NUM . 

19000000 

187700 

MOVE  BC12-DEC-IN  TO  HLD-B012-DEC. 

19C10000 

187800 

MOVE  COMB -B 01 2-HLD  TO  B012-B012C-3 . 

19020000 

187900 

MOVE  BC12E-NUM-IN  TO  HLD-BC1 2E-NUM . 

1 9030C00 

188000 

MOVE  BG12F-DEC-IN  TO  HLD-B01 2F-DEC . 

1 9C40000 

1 881  CO 

MOVE  COMB-B01 2F-HLD  TC  BC12F-3. 

1 905000C 

188200 

MOVE  F009-NUM-IN  TO  HLD-F009-NUM. 

1 906000C 

188300 

MOVE  F009-DEC-IN  TO  HLD-F009-DEC. 

19070000 

188400 

MOVE  COM3-FOO  9-HLD  TO  ECO  9-3. 

19080000 

188500 

MOVE  D012  TO  D012-3. 

19090000 

188600 

MOVE  D0I3C  TO  D013C-3. 

1 910000C 
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188700 

lessee 

188900 

189002 

1891CC 

189200 

189300 

189400 

189500 

18960C 

189700 

18980C 

189900 

190000 

190100 

184000 
184100 
184200 
184300 
18440C 
184500 
184600 
1847CC 
1 8  4  8  C  0 
184900 
185000 
185100 
185200 
185300 
185400 
185500 
185600 
188100 


MOVE  D120  TO  D120-3. 

MOVE  B05  9-DOLLARS-l N  TO  HLD-305 9-D01L . 

MOVE  B059-CENTS-IN  TO  HLD-B059-CENTS 
MOVE  PRICE -B059-HLD  TO  B059-3. 

PERFORM  WRITE-REC-3-TO-FILE-3. 
PROCESS-H-REC-EXIT. 

EXIT. 

*w**w*«»««*w»*«****w***«»***»*******«****ir***ir****** 

WRITE-REC-3-TO-FILE-3  SECTION. 

WRITE-REC-3 . 

MOVE  OUT-REC-3  TO  OUTPUT-REC-3 . 

WRITE  OUTPUT-REC-3. 

MOVE  SPACES  TO  OUT-REC-3. 

WRITE-REC-3 -EXIT. 

EXIT. 


lr  *  *  «  *  »  V 


TO  WS-J-REC. 
D046D-4. 


PRCCESS-REC-J  SECTION. 

PROCESS- J-REC. 

MOVE  B1 0 -INPUT -REC 
MOVE  HOR-NIIN-J  TO 
MOVE  04  TO  PRINT-CODE-4. 

MOVE  A0CI-1  TO  A001-4-1. 

MOVE  3046A-1  TO  B046A-4-1. 

MOVE  A012A-1  TO  AC12A-4-1. 

MOVE  PL-PROG-CST-1 -IN  TO  Pl-PROG-4 -1 -N . 

MOVE  PL-PROG-OST-1 -MIN-IN  TO  Pl-PROG-4 -1 -M . 
MOVE  C0C3E-1  TO  C0C3E-4-1. 

MOVE  AC12-1-IN  TO  AC12-4-1-N. 
move  aci2-i-m:nus-:n  tc  A012-4-1-M. 

MOVE  AC21A-1-IN  TC  AC21A-4-1-N. 

MOVE  AC21A-1 -MINUS-IN  TO  A021A-4-1-M. 

MOVE  A0C8B-1-IN  TO  A008B-4-1-N. 

MOVE  AC C8B-1 -MINUS-IN  TO  AC08B-4-1-M. 
PERFORM  WRI TE-REC-4 -TO-FI LE-4 . 

IF  A001-2  NOT  EQUAL  SPACES 
PERFORM  MOVE-2ND-ENTRY. 

IF  A001-3  NOT  EQUAL  SPACES 
PERFORM  MOVE-3RD-ENTRY. 


19110000 
1 9120000 
1913000C 
1 914000C 
19150000 
19160000 
19170000 
>19180000 
19190000 
19200000 
19210000 
19220000 
1923000C 
19240000 
19250000 
>19260007 
19270007 
19280007 
1 9290CC7 
19300007 
19310007 
19320007 
19330007 
1934C0C7 
19350007 
19360007 
1937C0C7 
19380007 
19390007 
19400007 
19410007 
19420007 
19430007 
19440007 
19450CC7 
19460007 
1947C007 
1  948000” 


189200 

188300 

PROCESS-. 

EXIT 

C-REC-EXIT . 

1949000” 
1 95 000 C 7 

M0VE-2N0- 

-ENTRY  SECTION. 

I9520CC7 

MCVE-2ND 

I9530CC7 

1  8  4  3  0  0 

MOVE 

HDR-NIIN-C  TC  D046D-4. 

19540007 

184400 

MOVE 

04  TC  PRINT-CODE-4. 

19550007 

185700 

MOVE 

ACC  1 -2  TC  ACC1-4-1. 

1 95  6000 1 

*  8  3  8  C  v 

MOVE 

BC46A-2  TC  B046A-4-1 . 

19570007 

185900 

MOVE 

A012A-2  TC  A012A-4-1. 

19580007 

186000 

MOVE 

PL-PROC-OST-2-IN  TC  PL -PROS- 4 -1 -N . 

1959000” 

186100 

MOVE 

PL-PROG-OST-2-MIN-IN  TC  PL-PROG- 4-1 -M . 

19600007 

186200 

MOVE 

C003E-2  TO  C003E-4 -1 . 

19610007 

186300 

MOVE 

A0I 2-2-IN  TO  A012-4-1-N. 

1 9620007 

186400 

MOVE 

AC 1 2 -2 -MINUS- IN  TO  A0I2-4-1-M. 

19630007 

186500 

MOVE 

AC21A-2-IN  TC  A021A-4-1-N. 

19640007 

186600 

MOVE 

A021A-2 -MINUS-IN  TC  A02IA-4-1-M. 

1965CC07 

186700 

MOVE 

A008B-2-IN  TC  A008B-4-I-N. 

19660007 

186800 

MOVE 

AC08B-2-MINUS-IN  TO  A008B-4-1-M. 

196700C7 

188100 

PERFORM  WPIIE-REC-4-TO-FILE-4. 

19680007 

MOVE -2ND- 

-EXIT. 

19690007 

EXIT 

19700007 

1  8431 


MOVE -3RD -ENTRY  SECTION. 
MOVE-3RD. 

MOVE  HDR-NIIN-J  TC  D046D-4. 


1972000* 

1973000* 

1974CCC* 
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1 844CC 

MOVE  04  TO  PRINT-CODE-4. 

1975C0C7 

1  8  6  9  C  C 

MOVE  AC01-3  TO  A001-4-1. 

197600C7 

:87:oc 

MOVE  B046A-3  TC  BC46A-4-1. 

19770007 

18^:0: 

MOVE  A012A-3  TO  A012A-4-1. 

19780007 

187200 

MOVE  PL-PROG-OST-3-IN  TO  PL-PROG- 4 -1 -N . 

19790007 

187300 

MOVE  PL-PROG-OST-3-MIN-IN  TO  PL-PROG-4-1-M. 

19800007 

187400 

MOVE  C003E-3  TO  C0C3E-4-1. 

19810007 

1875CC 

MOVE  A012-3-IN  TO  A012-4-1-N. 

19820007 

187600 

MOVE  A012-3 -MINUS-IN  TO  A012-4-1-M. 

19830007 

187700 

MOVE  A021A-3-IN  TO  A021A-4-1-N. 

19840007 

187800 

MOVE  A021A-3 -MINUS-IN  TO  AQ21A-4-1-M. 

19850007 

187900 

MOVE  A008B-3-IN  TO  A008B-4-1-N. 

19860007 

188000 

MOVE  A0C8B-3 -MINUS-IN  TO  A008B-4-1-M. 

19870007 

1881 CC 

PERFORM  WRITE-REC-4-TO-FILE-4 . 

19880007 

MOVE-3RD-EXIT. 

19890007 

EXIT. 

19900007 

I884CC’ 

»v*»*«’*****'*******«w*«*****'**********tlr«**«r********’*»*******«'**** 

”19910007 

1 9o3GC ■ 

1 954  C  0 

WR1TE-REC-4-TO-FILE-4  SECTION. 

19930000 

195SCC 

WR1TE-REC-4 . 

19940000 

195600 

MOVE  OUT-REC-4  TO  OUTPUT-REC-4 . 

19950000 

195700 

WRITE  OUTPUT-REC-4. 

19960000 

195800 

MOVE  SPACES  TO  OUT-REC-4. 

199703CC 

1 95  90  C 

w'?:te-rec-4-ex:t. 

19980000 

: 96000 

EXIT  . 

19990000 

-  96. C - 

1 962  0  C 

PROCESS-REC-L  SECTION. 

20010C0C 

1  96  30  0 

PROCESS-L-REC. 

2C02CCCG 

1  964  0  0 

MOVE  B1 C -INPUT -REC  TO  WS-L-REC. 

20030000 

196500 

MOVE  HOR-NIIN-T.  TO  DC46D-5. 

20040000 

196600 

MOVE  C5  TO  PRINT-CCDE-5. 

0  r\  r  r\  rs  r  r- 

196700 

MOVE  KCC1-L  TO  KC31-5. 

20060000 

196800 

MOVE  KCC2-LOOI-L  TO  KCC2-L0C1-5. 

20070000 

196900 

MOVE  LCOIA-L  TO  L0C1A-5. 

20080000 

i97co; 

MOVE  LC22-L  TC  L022-S. 

2CC90000 

19^100 

MOVE  AOCl-FRCM-L  TC  A001-5. 

2C10C00C 

197200 

MOVE  AOCl-TO-L  TC  A001-5-2ND. 

20110000 

: 97300 

MOVE  ORIG-QTy-L  TC  CROG-OTY-E. 

20120000 

19-40: 

MOVE  C003E-L  TO  CC03E-5. 

2C1300C0 

19’50: 

MOVE  OELy-OATE-L  TO  LCC9-S. 

2C 140000 

197600 

MOVE  LC 3 4 -L-MINUS-IN  TO  LC34-5-M. 

2015C0CC 

_  9  < "C 0 

MOVE  LC34-L-IN  TC  L034-5-N. 

2C16000C 

0  9780  0 

MOVE  AC12A-F POM-L  TC  AC12A-5. 

2c: tcccc 

1  9  90  C 

MOVE  AO  1 2A-TO-L  TO  A012A-S-2ND. 

20180000 

153C:o 

PERFORM  WRITE-REC-S-TO-FILE-5. 

20190000 

i9e:o: 

PRCCESS-L-REC-EXIT. 

2020200- 

196200 

EXIT  . 

•5  4:  7  "  4  A  A  4 
J  v. 

^  983C  v 1 

**20220000 

1  984  00 

w=:te-rec-5-tc-f:le-5  section. 

20230000 

1  995  00 

W? I 7E -REC-5 . 

20243CCC 

198600 

MOVE  0UT-REC-5  TC  CUTPUT-REC-5 . 

20250000 

198700 

WRITE  OUTPUT-REC-5. 

2026000C 

198800 

MOVE  SPACES  TC  OUT-REC-5. 

2027000C 

198900 

WRITE -REC -5-EXIT. 

20280CCC 

199000 

EXIT. 

20290000 

1  92300 

PROCESS-REC-N  SECTION. 

20310009 

1 92400 

PROCESS-N-REC. 

20320C09 

192500 

MOVE  B1C-INPUT-REC  TO  WS-N-REC. 

2033C0D9 

192600 

MOVE  HDR-NIIN-N  TO  D046D-6,  D046D-13. 

20340009 

1  92  7  0  C 

MOVE  06  TO  PRINT-CODE-6. 

20350009 

MOVE  13  TO  PRINT-CCDE-13. 

20360009 

MOVE  PPR-ACC1 -IN  TO  A001-I3. 

2C370009 

1  9280  “ 

move  ??p-k:c:-:n  to  koci-6. 

20380009 
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1929:: 

MOVE  PPR-KCC2-IN  TO  KC02-6. 

20390009 

193030 

MOVE  PPR-A012A-IN  TO  A012A-6,  AC12A-13. 

204000C9 

193100 

MOVE  PPR-K01 7-IN  TO  K017-6. 

20410C09 

1932C0 

MOVE  PPR-QTY-IN  TO  K006-6,  K006-13. 

204200C9 

MOVE  AC14F-IN  TO  A014F-13. 

20430009 

193330 

MOVE  PPR-K018-IN  TO  K018-6. 

20440009 

193400 

MOVE  PPR-K024-IN  TO  K024-6. 

20450009 

193500 

PERFORM  WRITE-REC-6-TO-FILE-6. 

20460009 

193500 

PERFORM  WRITE -REC-13-TO-FILE-13. 

20470009 

193600 

PROCESS-N-REC-EXIT. 

20480009 

193700 

EXIT. 

20490009 

200700’ 

**************'«*'************«*"********★**'#*★*********** 

.*20500000 

200800 

WRITE-REC-6-TO-FILE-6  SECTION. 

20510000 

2C0900 

WRITE-REC-6. 

20520000 

201000 

MOVE  OUT-REC-6  TO  OUTPUT-R2C-6 . 

20530000 

2C110C 

WRITE  OUTPUT-REC-6 . 

20540000 

201200 

MOVE  SPACES  TO  OUT-REC-6. 

20550000 

20130C 

WRITE-REC-6-EXIT. 

20560000 

20 1 4  00 

EXIT. 

20570000 

20-500’ 

193900 

WRITE-REC-13-TO-FILE-13  SECTION. 

2C590010 

1 94CCC 

WR1TE-REC-13. 

2060CC1C 

194100 

MOVE  OUT-REC-1 3  TO  C'JTPUT-REC-1 3  . 

2061C01C 

194200 

WRITE  OUTPUT-REC-13. 

2062CCIC 

194300 

MOVE  SPACES  TO  OUT-REC-13. 

20630C1C 

194400 

WRITE-REC-l 3-EXIT . 

20640010 

194500 

EXIT. 

2C650C1C 

1  94  600’ 

....... ». **20660010 

2  Cl 6C  C 

PROCESS-REC-P  SECTION. 

20670C0C 

201 "CO 

PROCESS-P-REC. 

20680000 

201800 

MOVE  B10-INPUT-REC  TO  WS-P-REC. 

20690000 

201 900 

MOVE  HDR-NIIN'-P  TO  D0460-7. 

20700000 

202000 

MOVE  07  TO  PRINT-CCDE-7. 

2071 0000 

202100 

MOVE  D016-1ST  TO  DC16-7. 

2072000C 

202200 

MOVE  DC16A-1ST  TO  DC16A-7. 

20730000 

2C23CC 

IF  D0I6-2-2ST  NOT  EQUAL  SPACES 

2C74CC0C 

202400 

PERFORM  MOVE-2 -ENTRY. 

2C75C000 

202500 

IF  DC- 6-3-1  ST  NOT  EQUAL  SPACES 

2C76000C 

202600 

PERFORM  MOVE- 3 -ENTRY. 

20770000 

202700 

IF  OC16-4-1ST  NOT  EQUAL  SPACES 

20780000 

202900 

PERFORM  MCVE-4-ENTRY . 

2079 00CC 

202900 

IF  3C16-5-1ST  NOT  EQUAL  SPACES 

20800000 

203000 

PERFORM  MCVE-5-ENTRY . 

2C810CCC- 

203100 

IF  DC1 6-2NO  NOT  EQUAL  SPACES 

20820000 

203200 

PERFORM  MOVE-6-ENTRY. 

2083000C 

203300 

IF  DC  1 6-2-2ND  NOT  EQUAL  SPACES 

2084000C 

203400 

PERFORM  MOVE-7-EN7RY. 

20850C0C 

203500 

IF  DC1 6-3-2ND  NOT  EQUAL  SPACES 

20860000 

203600 

PERFORM  MOVE-8-ENTRY . 

2C87CCCC 

2C3"CC 

IF  DC! 6-4 -2ND  NOT  EQUAL  SPACES 

20880000 

2C3800 

PERFORM  MCVE-9-ENTRY . 

20890000 

2C39C0 

IF  D01 6-5-2ND  NOT  EQUAL  SPACES 

20900000 

204000 

PERFORM  MOVE-1 0-ENTRY. 

2 0910000 

2041 00 

PERFORM  WRITE-REC-7 -TO-FILE-7 . 

20920000 

2C420C 

IF  DC16-3RD  NOT  EQUAL  SPACES 

2093000C 

2C43CC 

PERFORM  MOVE-11 -ENTRY 

2094000C 

204310 

ELSE 

2095000C 

204320 

GO  TO  PROCESS-P-REC-EXIT. 

2096000C 

204  4  0!: 

IF  DOI 6-2-3RD  NOT  EQUAL  SPACES 

20970C0C 

2C450C 

PERFORM  MOVE-12-ENTRY . 

20980000 

204600 

IF  DCI6-2-3RD  NOT  EQUAL  SPACES 

2099000C 

204  ',00 

PERFORM  MO’’E-12-ENTRY  . 

21000000 

204800 

IF  D0I 6-2-3RD  NCI  EQUAL  SPACES 

21010000 

204900 

PERFORM  MOVE-1 2 -ENTRY . 

21020000 

129 


205000 

IF  DC1 6-2-3RD  NOT  EQUAL  SPACES 

21 03000C 

2i5ioc 

PERFORM  MOVE -1 2 -ENTRY . 

21C4CCC0 

205110 

IF  D0I6-3-3RD  NOT  EQUAL  SPACES 

21C5000C 

2  051 2  0 

PERFORM  MOVE-1  3-ENTRY . 

21 06000C 

2051 30 

IF  DC16-4-3RD  NOT  EQUAL  SPACES 

21C70CCC 

205140 

PERFORM  MOVE-1  4-ENTRY. 

21080000 

205150 

IF  D01 6-5-3RD  NOT  EQUAL  SPACES 

21090000 

205160 

PERFORM  MOVE-15-ENTRY . 

21100000 

205200 

PERFORM  WRITE-REC-7-TO-FILE-7. 

21110000 

20521 C 

PROCESS-P-REC-EXIT. 

21120000 

205220 

EXIT. 

21130000 

20530C**** *********************  ************************* 

................21140000 

2C54C0 

MOVE-2- ENTRY  SECTION. 

21150000 

2C550C 

MOVE-2. 

21160000 

205600 

MOVE  D01 6-2-1  ST  TO  D016-7-2. 

21170000 

205700 

MOVE  D01 6A-2-1ST  TO  D016A-7-2. 

21180000 

205800 

MOVE -2 -ENTRY -EX I T . 

211900C0 

205900 

EXIT. 

21200C0C 

2  C  61 0  0 

MOVE -3 -ENTRY  SECTION. 

212200CC 

206200 

MOVE -3 . 

2123000C 

206300 

MOVE  DC16-3-1S!  TO  DCI6-7-3. 

21240000 

206400 

MOVE  D01 6A-3-1ST  TO  DC16A-7-3. 

21250000 

20  650  0 

MOVE -3 -ENTRY -EX I T . 

212600CC 

206600 

EXIT. 

212”0c:c 

2Z£1ZZ' 

206800 

MOVE -4 -ENTRY  SECTION. 

2129000C 

206900 

MOVE-4 . 

2I3CCCCC 

207000 

MOVE  DC  1  6-4 -1ST  TO  0016-7-4. 

2*3"  C00C 

207100 

MOVE  DC  1 6A-4 -1ST  TO  DC16A-7-4. 

21 320C0C 

207200 

MOVE-4 -ENTRY-EXIT. 

21330000 

207300 

EXIT. 

21340000 

207400 

**#»********»*****»***********«****»***'*•*****»***» 

,,,...,...,,,,.,21350000 

207500 

MOVE-5-ENTRY  SECTION. 

21360000 

207600 

MOVE -5 . 

213700CC 

2:1  ICC 

MOVE  OC1 6-5-1  ST  TO  D016-7-5. 

21380000 

207800 

MOVE  DC  1 6A-5-1 ST  TO  DC16A-7-5. 

2139C0C0 

207900 

MOVE-5-ENTRY-EXIT. 

21400000 

2CBZZZ 
2  C  8  :  c  c 

EXIT. 

21410000 

208200 

MOVE-6-ENTRY  SECTION. 

2143C000 

2C83CC 

MOVE -6. 

21440000 

208400 

MOVE  DC  1 6-2ND  TC  D01 6-7-6. 

21450000 

208500 

MOVE  D016A-2ND  TC  D016A-7-6. 

21460000 

208600 

MOVE-6-ENTRY-EXIT . 

21470000 

2C87CC 

EXIT  . 

2148OCC0 

208800 

«»****2' 49000" 

208900 

MOVE- 7-ENTRY  SECTION. 

2I50000C 

209000 

MOVE -7 . 

21510000 

2  0  91 C  0 

MOVE  DC1 6-2-2ND  TC  DC16-7-7. 

21520000 

209200 

MOVE  D016A-2-2ND  TO  DC16A-7-7. 

21530000 

2C930C 

MCVE-7 -ENTRY-EXIT. 

21540000 

209400 

EXIT. 

21550000 

2C9500' 

209600 

MOVE-8-ENTRY  SECT  UN. 

21570000 

209700 

MOVE- 8. 

21S8000C 

209800 

MOVE  DC1 6-3-2ND  TO  DC16-7-8. 

21590000 

209900 

MOVE  DC1 6A-3-2ND  TO  D016A-7-8. 

21 60000C 

210000 

MOVE-8-ENTRY-EXIT. 

21610000 

21010C 

EXIT. 

21620000 

210200' 

.,..•*21630000 

210300 

MOVE-9-ENTRY  SECTION. 

21640000 

21C4CC 

MOVE- 9. 

21 650C00 

210500 

MOVE  DC16-4-2ND  TC  D016-7-9. 

21660000 

130 


21060C 

MOVE  D01 6A-4-2ND  TO  D016A-7-9. 

21670000 

210700 

MOVE-9-ENTRY-EXIT . 

21 68000C 

210800 

EXIT. 

21690000 

210900' 

**’*21700000 

211000 

MOVE-1 0-ENTRY  SECTION. 

21710000 

2111CC 

MOVE-1 0 . 

21720000 

211200 

MOVE  D016-5-2ND  TO  D016-7-10. 

21730000 

211300 

MOVE  D01 6A-5-2ND  TO  D016A-7-10. 

21740000 

211400 

MOVE-1 O-ENTRY-EXIT. 

21750000 

21150C 

EXIT. 

21760000 

211600’ 

IT.**.*.*...*....*..***.**.*******.*.***...**.**.*.***...*.**.. 

****21770000 

211610 

MOVE-11 -ENTRY  SECTION. 

21780000 

211 62  C 

MOVE-11 . 

21790000 

211700 

MOVE  HDR-NIIN-P  TO  D046D-7. 

21800CI0U 

211800 

MOVE  07  TO  PRINT-CODE-7. 

21810000 

211900 

MOVE  D016-3RD  TO  D016-7. 

21820000 

212000 

MOVE  D016A-3RD  TO  D016A-7. 

21830000 

212010 

MOVE-11 -ENTRY-EXIT. 

21840000 

212020 

EXIT. 

21850000 

212030' 

»»****»***#***»■»**************************'*****************'»** 

’***21860000 

212040 

MOVE -12 -ENTRY  SECTION. 

21870000 

212C5C 

MOVE-12 . 

21880000 

212100 

MOVE  DC1 6-2-3RD  TO  DC16-7-2. 

218900CC 

212200 

MOVE  DC1 6A-2-3RD  TO  DC16A-7-2. 

21 900CC0 

212210 

MOVE- 12-ENTRY-EXIT. 

21 91CCCC 

212220 

EXIT. 

21920000 

212230 

’**’21930000 

212240 

MOVE-1  3-ENTRY  SECTION. 

21940000 

212250 

MOVE-13. 

21950000 

212300 

MOVE  DC1 6-3-3RD  TO  DCC6-7-3. 

21960000 

212400 

MOVE  DC16A-3-3RD  TO  D016A-7-3. 

21970000 

2: 2 4 1 C  MOVE-; 3-ENTRY-EXIT. 

212420  EXIT. 

21243C’’*’*’**’*******”*’’’’””* 


212440 
212450 
212300 
212600 
212610 
212620 
212630**"” 


MOVE- 14 -ENTRY  SECTION. 

MOVE-1  4 . 

MOVE  D01 6-4 -3RD  TO  DC16-7-4. 

MOVE  DC1 6A-4-3RD  TO  3016A-7-4. 
MOVE-1 4-ENTRY -EXIT. 

EXIT. 

***»**'• 


******* 


212640 
212650 
212700 
212800 
212810 
212820 
212830 
2. 3  2  C  0 

213300  WRITE-REC-7-TO-FII.E-7  SECTION. 
213400  WRITE-REC-7. 


MOVE-1  5-ENTRY  SECTION. 

MOVE-15. 

MOVE  DC1 6-5-3RD  TO  DC16-7-5. 
MOVE  DC16A-5-3RD  TO  DC16A-7-5. 
MOVE-1 5-ENTRY-EXIT. 

EXIT. 


21  980000 
21990000 
.......22000000 

22010000 
22020000 
22030000 
22040000 
22050C0C 
2206000C 

.................... . 22C7000C 

22080000 
22090000 
22100000 
22110000 
22120000 
22130000 

......... «*.»** .......... ***22140000 

........................... *22150000 

22160000 
2217000C 


21 3500 

MOVE  OUT-REC-7  TO  OUT-P.UT-REC-7 . 

22180000 

213600 

WRITE  OUTPUT-REC-7. 

22190000 

21 3700 

MOVE  SPACES  TO  OUT-REC-7. 

22200000 

213800 

WRITE-REC-7-EXIT. 

22210000 

213900 

EXIT. 

22220000 

214000- 

’**22230000 

214100 

PROCESS-REC-R  SECTION. 

2224000C 

21420C 

PROCESS-R-REC. 

2225000C 

21430C 

MOVE  B10-INPUT-REC  TO  WS-R-REC. 

22260000 

214400 

MOVE  HDR-NI IN-R  TO  D046D-8. 

22270000 

214500 

MOVE  08  TO  PRINT-CODE-8. 

22280000 

21 4600 

MOVE  D009-1ST  TO  DCC9-8-1. 

22290000 

214700 

MOVE  DC11-1ST  TC  D01 1-8-1. 

22300000 
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214800 
214900 
21 4 91 C 
214920 
21493C 
214940 
214950 
214960 
214970 
214  980 
214990 
214991 
214992 
214993 
214994 
214997 
214998 
214999 
215000 
215001 
215002 
2150C3 
21 5004 
215005 
215006 
215007 
215008 
215010 
215100 
215200 
2153C0 
215310 
215320 
215330 
215340 
215350 
215400 
215500 
215600 
215700 
215701 
2157C2 
215710 
215720 
215730 
215800 
215900 
216000 
216100 
216110 
216120 
216130 
216140 
216150 
216200 
216300 
216400 
216500 
21 651 C 
216520 
216530’ 
216540 
216550 
21 6600 


MOVE  F018-1ST  TO  F018-8-1. 

MOVE  D013-1ST  TO  DC13-8-1. 

IF  D009-2-1ST  NOT  EQUAL  SPACES 
PERFORM  MOVE-2-APPL. 

IF  D00 9-3-1ST  NOT  EQUAL  SPACES 
PERFORM  MOVE-3-APPL. 

IF  D009-2ND  NOT  EQUAL  SPACES 
PERFORM  MOVE-4-APPL. 

IF  D009-2-2ND  NOT  EQUAL  SPACES 
PERFORM  MOVE-S-APPL. 

IF  D009-3-2ND  NOT  EQUAL  SPACES 
PERFORM  MOVE-6-APPL. 

PERFORM  WRITE-REC-8-TO-FILE-8. 

IF  DC09-3RD  NOT  EQUAL  SPACES 
PERFORM  MOVE-7-APPL. 

IF  D009-2-3RD  NOT  EQUAL  SPACES 
PERFORM  MOVE-8-APPL. 

IF  D00 9-3-3RD  NOT  EQUAL  SPACES 
PERFORM  MOVE-9-APPL. 

IF  D009-3RD  NOT  EQUAL  SPACES  OR  D0D9-2-3RD 

NOT  EQUAL  SPACES  OR  D009-3-3RD  NOT  EQUAL  SPACES 
PERFORM  WRITE-REC-8-TO-FILE-8. 

PROCESS-R-REC-EXIT . 

EXIT. 

*****w*«**»*»*****1r»*»*»***w%l****»*»»*ir*w*«www«****wir**«*w«w»»*ir 

MOVE-2-APPL  SECTION. 

MOVE-APPL-2. 


22310000 

22320000 

22330000 

22340000 

22350000 

22360000 

223700G0 

22380000 

22390000 

22400000 

22410000 

22420000 

22430000 

22440000 

22450000 

22460000 

22470000 

22480000 

22490000 

22500005 

22510005 

22520000 

22530000 

22540000 

*22550000 

22560000 

22570000 


MOVE  D009-2-1ST  TO  D009-8-2. 
MOVE  DC11-2-1ST  TO  DC11-8-2. 
MOVE  FC18-2-1ST  TO  F018-8-2. 
MOVE  D013-2-1ST  TO  D013-8-2. 
MOVE-2 -APr L-EXI T . 

EXIT. 


»*»»**»******»» 


22580000 

22590000 

22600000 

22610000 

22620000 

22630000 

'********22640000 


MOVE-3 -APPL  SECTION. 
MOVE-APPL-3. 

MOVE  D0C9-3-1ST 
MOVE  D011-3-1ST 


MOVE - 3 -APP L-EXI T  . 
EXIT. 

«■■*»■**★****•»***'*■***»** 

MOVE- 4 -APPL  SECTION. 
MOVE -A? PL- 4 . 

MOVE  D009-2ND  TO 
MOVE  D01 1 -2ND  TO 
MOVE  F018-2ND  TO 
MOVE  DG13-2NO  TO 
MOVE -4 -APP L-EXI T . 
EXIT. 

»*■*»»★*★*******♦***»* 

MOVE-5-APPL  SECTION. 
MOVE-APPL-5 . 


MOVE  DC1 3-2-2ND 
MOVE-5-APPL-EXIT. 
EXIT. 

MOVE-6-APPL  SECTION. 
MOVE-APPL-6 . 

MOVE  D009-3-2ND 


TO  D0C9-8-3 . 

2265000C 

22660000 

22670000 

TO  D011-8-3. 

22680000 

TO  FC18-8-3. 

22690000 

TO  DC13-8-3 . 

22700000 

’****»»*'lr*****w*-<r**»**w*»rw*'w»******»*»,ir*w»,*r 

2271000C 

22720000 

***22730000 

:  DOC 9-8-4 . 

22740000 

22750000 

22760000 

1  DOil-8-4 . 

22770000 

>  F018-8-4 . 

22780000 

:  D013-8-4 . 

2279C0CC 

22800000 

2281000C 

*»..«».,.»«»2282  00  00 

TO  D009-8-5 . 

2283000C 

22840000 

22850000 

TO  D011-8-5. 

22860000 

TO  F018-8-5. 

22870000 

TO  D013-8-5. 

22880000 

«-»****»*»**»*■•#**##**#»#**»»*»•******«**** 

22890000 

22900000 

***22910000 

TC  D2C9-8-6. 

22920000 

22930000 

2294000C 
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216700 
2068  CC 
216900 
21 691 C 
216920 
216930 
216940 
216950 
217100 
217200 
217300 
217400 
217500 
217600 
217610 
217620 
217630 
217640 
217650 
217700 
217800 
217900 
218000 
218010 
2 1 8  C  2  0 
218030 
218040 
218C50 
218100 
218200 
218300 
2 1 8  4  C  0 
218410 
218420 
218800' 
218900 
219000 
21 91 OC 
21 92  0  0 
219300 
219400 
219500 
219600 
21 9700 
21 9800 
219900 
2222*2 
2201  CO 
22*222 
220300 
22040C 
22050C 
220600 
220700 
220800 
220900 
221 COC 
221100 
221200 
221300 
221400 
221500 
221600 
221700 


MOVE  D011-3-2ND  TO  D011-8-6. 
MOVE  F018-3-2ND  TO  FC18-8-6. 
MOVE  D013-3-2ND  TO  D013-8-6. 
MCVE-6-APPL-EXIT. 

EXIT. 

r  *  *  i I*””””**””””**””””! 

MOVE-7-APPL  SECTION. 

MOVE-APPL-7. 

MOVE  HDR-NIIN-R  TO  D046D-8. 
MOVE  08  TO  PRINT-CODE-8. 

MOVE  D009-3RD  TO  D009-8-1. 
MOVE  DC11-3RD  TO  D011-8-1. 
MOVE  F018-3RD  TO  F018-8-1. 
MOVE  D013-3RD  TO  D013-8-1. 
MOVE-7-APPL-EXIT. 

EXIT. 

t************-******** 

MOVE-8-APPL  SECTION. 

MOVE-APPL-8. 

MOVE  DC09-2-3RD 
MOVE  D011-2-3RD 
MOVE  F018-2-3RD 
MOVE  DOi 3-2-3RD 
MCVE-8-APPL-EXIT. 

EXIT. 

tv******************* 

MCVE-9-APPL  SECTION. 

MOVE-APPL-9. 

MOVE  D009-3-3RD 
MOVE  DC11-3-3RD 
MOVE  FC18-3-3RD 
MOVE  D013-3-3RD 
MOVE-9-APPL-EXIT. 

EXIT. 


TO  D009-8- 
TO  D011-8- 
TO  F018-8- 
TO  D013-8- 


2. 

2. 

2 

2. 


f  *  »  *  * 

WRIT 

WRIT 


E-REC-8-TO-FILE 

E-REC-8. 


TO  DC09-8- 
TO  D011-8- 
TO  F018-8- 
TO  DC13-8- 


•8  SECTION. 


3. 

3. 

3 

3. 


Mr*«*»**< 


22950000 
22960000 
22970000 
22980000 
22990000 
23000000 
23010000 
23020000 
23030000 
23040000 
23050000 
23060000 
23070000 
23080000 
23090000 
23100000 
*’**23110000 
23120000 
23130000 
2314C0CC 
23150000 
23160000 
2317C0CD 
231800C0 
23190000 
’*”23200000 
23210000 
23220000 
23230000 
23240000 
23250000 
23260000 
23270000 
23280000 
.”*23290000 
23300C0C 
23310000 


MOVE  OuT-REC-8  TC  OUTPUT-REC-8 . 

WRITE  OwTPCT-REC-8 . 

MOVE  SPACES  TO  O'JT-REC-8. 
WRITE-REC-8-EXIT . 

EXIT. 

FROCESS-REC-T  SECTION. 

PROCESS-T-REC . 

MOVE  B1 0-INPUT-REC  TO  WS-T-REC. 

MOVE  HDR-NI IN-T  TO  D046D-9. 

MOVE  09  TO  PRINT-CODE-9. 

MOVE  B3-K002-KC20-IN  TO  K002-KC20-9. 
MOVE  BB-K03 6-IN  TO  K036-9. 

MOVE  BB-K024-IN  TO  K024-9. 

MOVE  BB-K022-IN  TC  K022-9. 

MOVE  BB-K025-IN  TO  K025-9. 

MOVE  BB-K026-IN  TO  K026-9. 

PERFORM  WRITE-REC-9-TO-FILE-9. 
PROCESS-T-REC-EXIT. 

EXIT. 


23320000 
233300 00 
2334C00C 
2335000C 
23360000 
””*23370000 
* 336C0wC 
23390000 
23400000 
23410000 
23420000 
2343000C 
2344C000 
23450C0C 
23460C0C 
23470000 
23480000 
2349000C 
235C000C 
23510000 


*”””””**””*”*””»”***”**””””””ir””””””*””2352C000 


WRITE-REC-9-TO-FILE-9  SECTION. 
WRITE-REC-9. 

MOVE  OUT-REC-9  TO  OUTPUT-REC-9 . 
WRITE  OUTPUT-REC-9. 

MOVE  SPACES  TO  O’JT-REC-9. 
WRITE-REC-9-EXIT. 


2353000C 
2 3540000 
23550000 
2356000C 
2357000C 
2358CC0C 
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2  2 1  8  C  C 
22190C’ 
22200C 
222 i CO 
22220C 
222300 
222400 
222500 
222600 
222700 


223500 

223600 

223700 

223800 

223900 


PROCESS-REC-V  SECTION. 

PROCESS-V-REC. 

MOVE  B10-INPUT-REC  TO  WS-V-REC. 

MOVE  HDR-NIIN-V  TO  D046D-10. 

MOVE  10  TO  PRINT-CODE-10. 

MOVE  C035-IN-1  TO  C035-B-C-.0-1 . 

MOVE  C038-IN-1  TO  C038-10-1. 

MOVE  D001-IN-1  TO  D001-C004C-10-1 . 

IF  C035-IN-2  NOT  EQUAL  SPACES 
PERFORM  MOVE-2-REFNR. 

IF  C035-IN-3  NOT  EQUAL  SPACES 
PERFORM  MOVE-3-REFNR. 

PERFORM  WRITE-REC-10-TO-FILE-10. 

IF  C035-IN-4  NOT  EQUAL  SPACES 
PERFORM  MOVE - 4 -REFNR . 

IF  C035-IN-5  NOT  EQUAL  SPACES 
PERFORM  MOVE- 5 -REFNR. 

IF  C035-IN-6  NOT  EQUAL  SPACES 
PERFORM  MOVE-6-REFNR. 

IF  C035-IN-4  NOT  EQUAL  SPACES  OR  C035-IN- 
SPACES  OR  C035-IN-6  NOT  EQUAL  SPACES 
PERFORM  WRITE-REC-IO-TO-FILE-IC. 

IF  C035-IN-7  NOT  EQUAL  SPACES 
PERFORM  MOVE-7-REFNR . 

IF  C035-IN-8  NOT  EQUAL  SPACES 
PERFORM  MCVE-8-REFNR . 

IF  C035-IN-9  NOT  EQUAL  SPACES 
PERFORM  MOVE-9-REFNR . 

IF  CC35-IN-7  NOT  EQUAL  SPACES  OR  C035-IN- 
SPACES  OR  CC35-IN-9  NOT  EQUAL  SPACES 
PERFORM  WRITE-REC-IO-TO-FILE-IC . 
PROCESS-V-REC-EXIT . 

EXIT. 

MOVE-2 -REFNR  SECTION. 

MOVE-REFNR-2  . 

MOVE  C035-IN-2  TO  C035-B-C-I C-2 . 

MOVE  CC38-IN-2  TO  C038-10-2. 

MOVE  DCC1-IN-2  TO  D001-C004C-10-2 . 
MOVE-2-REFNR-EXIT , 

EXIT. 

.*»*•..*»*...»»***».*»»»»**..*«*»**. .»»*»»*»»1 

MOVE-3-REFNR  SECTION. 

MOVE-REFNR-3 . 

MOVE  C035-IN-3  TO  C035-B-C-1 0-3 . 

MOVE  CC38-IN-3  TO  CC38-10-3. 

MOVE  DCCI-IN-3  TO  D0C1 -CC04C-1 0-3 . 
MCVE-3-REFNR-EXIT. 

EXIT. 

.»»**.**.***.»*.**.»***».»*•*•****. ...*.*****i 

MOVE-4 -REFNR  SECTION. 

MOVE-REFNR-4 . 

MOVE  HDR-NIIN-V  TO  D046D-10. 

MOVE  10  TO  PRINT-CODE-10. 

MOVE  C035-IN-4  TO  C035-B-C-10-1 . 

MOVE  C038-IN-4  TO  CC38-10-1. 

MOVE  D001 -IN-4  TO  D001-C004C-1 0-1 . 
MOVE-4-REFNR-EXIT. 

EXIT. 


................a 


MOVE-5-REFNR  SECTION. 
MOVE-REFNR-5 . 


23590000 
...... 23600000 

23610000 
23620000 
2363000C 
23640000 
23650000 
23660000 
23670000 
23680000 
23690006 
23700006 
23710006 
23720006 
23730006 
23740006 
23750006 
23760006 
23770006 
23780006 
23790006 
23800006 
238100C6 
23820006 
23830006 
23840006 
23850006 
2 3860006 
23870006 
2388C0C6 
23890006 
23900006 
23910006 
23920006 
23930006 
......23940006 

23950006 
239600C6 
2397CC00 
2398000C 
2399000C 
24000006 
24010006 
..... .24220006 

24030006 

24040006 

2405CC0C 

24060000 

24070000 

24080006 

24090006 

*..*.*24100006 

24110006 

24120006 

24130000 

24140000 

2415000C 

24160000 

24170000 

24180006 

24190006 

'..***24200006 

24210006 

24220306 


224000 

22410C 

224200 


224300 

224400 

224500 


224700 

22480C 

224900 

22500C 

225100 


225200 

225300 

225400 


225500 

225600 

245700 


226100 

226200 

226300 

226400 

226500 

226600 

226700 

226800 

226900 

227000 

227100 

227200 

227300 

227400 

227500 

227600 

22773C 

227800 

227900 

228CCC 

228100 

2282C0 

228300 

228400 

228500 


MOVE 

C035-IN-5 

TO 

C035-B-C-10-2 . 

MOVE 

C038-IN-5 

TO 

C038-1 0-2 . 

MOVE 

D001-IN-5 

TO 

D0C1-C004C-1C- 

MOVE-5-REFNR-EXIT. 
EXIT  . 

MOVE-6-REFNR  SECTION. 
MOVE-REFNR-6. 


MOVE 

C035-IN-6 

TO 

C035-B-C-10-3. 

MOVE 

C038-IN-6 

TO 

C038-10-3. 

MOVE 

D001 -IN-6 

TO 

D001-C004C-10- 

MOVE-6-REFNR-EXIT. 

EXIT. 

MOVE-7-REFNR  SECTION. 

MOVE-REFNR-7. 

MOVE  HDR-NIIN-V  TO  D046D-10. 

MOVE  10  TO  PRINT-CODE-10. 

MOVE  C035-IN-7  TO  CC35-B-C-10-1 . 
MOVE  CC38-IN-7  TO  C038-10-1. 

MOVE  D001-IN-7  TO  D001-C004C-10- 
MCVE-7-REFNR-EXIT . 

EXIT. 


MOVE-8-REFNR  SECTION. 

MOVE-REFNR-e. 

MOVE  CC35-JN-8  TO  CC35-B-C-1 0-2 . 
MOVE  C038-IN-8  TO  C038-10-2. 

MOVE  DC01-IN-8  TO  D0C1-C0C4C-10-, 
MOVE-8-REFNR-EXIT . 

EXIT. 

MOVE-9-REFNR  SECTION. 

MCVE-REFNR-9. 

MOVE  C035-IN-9  TO  C035-B-C-10-3 . 
MOVE  CC38-IN-9  TO  CC38-10-3. 

MOVE  D0C1-IN-9  TO  DCC1-C0C4..-1C- 
MCVE- 9-REFNR-EXI T . 

EXIT. 

'»*»**»#*«»****»«w***»*w*wwH'**w»»irww* 

WRITE-REC-1C-TO-FILE-10  SECTION. 
WRITE -REC-1C. 

MOVE  C’JT-REC-1  0  TO  OUTPUT-REC-I  C 
WRITE  OUTPUT-REC-I C. 

MOVE  SPACES  TO  OUT-REC-1C. 
WRITE-REC-10-EXIT. 

EXIT. 

,*»,*...*.*«***»,*.«*.**»**»*,*.***. 

M'JETI-MOE-CHECK  SECTION. 

CHECK-MULTI -MOE . 

IF  Z-FLAG-I  NOT  EQUAL  SPACES 
PERFORM  PROCESS-REC-Z2 
ELSE 

PERFORM  PROCESS-REC-Z. 
CHECK-MULTI -MOE -EXIT . 

EXIT. 

■,*»*,***.».**********.*»*,*..**»*.** 

PROCESS-REC-Z 2  SECTION. 
PROCESS-Z2-REC. 

MOVE  Bi 3-INPUT-REC  TO  WS-Z2-REC. 
MOVE  HDR-NIIN-Z2  TO  D046D-I2. 
MOVE  12  TO  PRINT-CODE-12. 

MOVE  D093-IN-Z2-1  TO  D093-12-I. 
MOVE  DC94-IN-Z2-I  TO  D394-12-1. 


2423000C 

2424000C 

24250000 

24260006 

24270006 

......24280006 

24290006 
24300006 
24310000 
24320000 
24330000 
24340006 
24350006 
24 3 60006 
24370C06 
24380006 
24390000 
24400000 
24410000 
24420000 
24430000 
24440006 
24450006 

............................24460006 

24470006 

24480006 

2449000C 

2450C00C 

24510000 

24520006 

24530006 

*24540006 

24550006 

24560006 

24570000 

24580C00 

2459C000 

246C0006 

24610006 

.,.,.,,,,......,..,.,....,.,24620000 

24630000 
24640000 
2465C0CC 
24660000 
24670C0C 
2468000C 
246900CC 
»24  70000C 
24710000 
24720000 
2473000C 
24740000 
2475C000 
24760000 
24770000 
2478000C 

............................24790000 

2480000C 

24810000 

24820000 

24830000 

24840000 

24850000 

2486000C 
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2286CC 

MOVE 

D094-TN-Z2-2 

TO  D094-12-2. 

24870000 

228200 

MOVE 

D094-IN-Z2-3 

TO  D094-12-3 . 

24880000 

228800 

MOVE 

D094-IN-Z2-4 

TO  D094-12-4. 

24890000 

22890C 

MOVE 

DO  94 -IN-Z2-5 

TO  D094-1 2-5 . 

24900000 

229000 

MOVE 

D094-IN-Z2-6 

TO  D094-12-6. 

24910000 

229100 

MOVE 

D094-IN-Z2-7 

TO  D094-12-7. 

24920000 

229200 

MOVE 

D094-IN-Z2-8 

TO  D094-12-8. 

24930000 

229300 

MOVE 

D094-IN-Z2-9 

TO  D094-12-9 . 

24940000 

229400 

MOVE 

D094-IN-Z2-10  TO  D094-12-10. 

24950000 

229500 

MOVE 

D093-IN-Z2-2 

TO  D093-12-2. 

24960000 

229600 

MOVE 

D095-IN-Z2-1 

TO  D095-12-1. 

24970000 

229700 

MOVE 

D095-IN-Z 2-2 

TO  D095-12-2. 

24980000 

229800 

MOVE 

D095-IN-Z2-3 

TO  D095-12-3. 

24990000 

229900 

MOVE 

D095-IN-Z2-4 

TO  D095-12-4 . 

25000000 

230000 

MOVE 

D095-IN-Z2-5 

TO  DO 95-12-5 . 

25010000 

230100 

MOVE 

D095-IN-Z2-6 

TO  D095-12-6. 

25020000 

23C200 

MOVE 

D095-IN-Z2-7 

TO  D095-12-7, 

25030000 

230300 

MOVE 

D095-IN-Z2-8 

TO  D095-12-8. 

25040000 

230400  MOVE  D095-IN-Z2-9  TO  D095-12-9. 

00 

00 

MOVE  DO  95-IN-22-1 C  D09S-12-10.  230600 

PERFORM  WRITE-REC-1 

230700  PROCESS-Z 2 -REC-EXIT 

25080000 

230800 

EXIT. 

25090000 

23C9CC’ 

........*....25100000 

2  3 1 0  C  0 

PROCESS -REC-Z  SECTION. 

25110000 

231100 

PROCESS-2 

-REC. 

25120000 

231200 

MOVE 

B10-INPUT-REC  TO  WS-Z-REC. 

25130000 

231300 

MOVE 

HDR-NIIN-Z  TC 

D046D-11 . 

25140000 

231400 

MOVE 

11  TO  PRINT-CODE-1 1 . 

25150000 

231500 

MOVE 

DO  93-IN  TC  D093-11  . 

25160000 

231600 

MOVE 

D095-IN-1  TO 

D095-11-1 . 

25170C0C 

231-700 

MOVE 

D095-IN-2  TO 

D095-1 1 -2 . 

2518CC00 

231800 

MOVE 

D095-IN-3  TC 

DO  95-1 1 -3 . 

2519CCCC 

231900 

MOVE 

DO  95-IN- 4  TO 

D095-11-4 . 

25200C00 

232000 

MOVE 

D09S-IN-5  TO 

D095-11-5. 

25210000 

232100 

MOVE 

DO 95-IN-6  TC 

DO  95-1 1 -6 . 

25220000 

2322C0 

MOVE 

D095-IN-7  TO 

DO  95-1 1 -7 . 

25230000 

232300 

MOVE 

DC 95-IN-8  TC 

DC95-1 1-8 . 

25240000 

232400 

MOVE 

D095-IN-9  TO 

DC95-11-9. 

25250000 

232500 

MOVE 

D095-IN-10  TO  D095-11-1 0 . 

25260000 

232600 

PERFORM  WRITE-REC- 

-11-TO-FILE-il. 

25270000 

2  -<  2  7  o  c 

PRCCESS-2 

-REC-EXIT. 

25280000 

232800 

EXIT 

25290000 

2329CC*********»***********************»*****************»******»*******25300000 


233000 

WRITE-REC-1 1 -TO-FILE-11  SECTION. 

25310000 

233100 

WRITE-REC-1 1 . 

25320000 

233200 

MOVE  O'JT-REC-11  TC  OUTP’JT-REC-1 1 . 

253300CC 

233300 

WRITE  OUTP’JT-REC-l 1 . 

253400CC 

233400 

MOVE  SPACES  TO  CUT-REC-11. 

2535000C 

233500 

WRITE-REC-1 1 -EXIT . 

25360000 

233600 

EXIT, 

2537000C 

233700 

***************************"**«*********•*****************♦ 

........*25380000 

23380C 

WRITE -REC-12-TO-FILE-12  SECTION. 

25390000 

233900 

WRITE-REC-12. 

25400000 

23400C 

MOVE  OUT-REC-12  TO  OUTPUT -REC-1 2 . 

25410000 

234100 

WRITE  OUTPUT-REC-12. 

25420000 

234200 

MOVE  SPACES  TO  OUT-REC-12. 

2543000C 

234300 

WRITE-REC-1 2 -EXIT. 

25440000 

234400 

EXIT. 

25450000 

234500' 

*********************************************************** 

****.**..25460000 

234600 

CLOSE-ROUTINE  SECTION. 

25470000 

234700 

CLOSE-FILES-ROUTINE. 

25480000 

23480C 

CLOSE  B1CJX1,  OFILE1,  OFILE2,  OFILE3, 

OFILE4, 

25490000 

23490C 

OFILE5,  OFILE6,  OFILE7,  OFILE8, 

OFILE9, 

2550000C 
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235000  OFILE1C,  OFILE11,  OFILE12,  OFILE13. 

235100  CLOSE-RO'JTINE-EXIT. 

235200  EXIT. 

235300”*”  *»**«»»«**«**»***»**«•*««»»»»»»». *.»»»«,*»»*»*«».»»«» 


25510014 

25520000 

25530000 

*25540000 
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APPENDIX  E 


SAMPLE  NSN5B  DATAFILES 


1. 0FILE1 


0005I95870100000E68064R  EA04 1 776 . 0 CSWASH  PLATE. ASSY  RO 
OOOS: 95990100000E68064R  EA031698 . OOSWASH  PLATE  ASSY.AF 
OC0521358C100000E6718SR  EA000579. 94FILTER, FLUID 
CQC52 13600100000X67185  EA0 000 1 3 . 2  IP ARTS  KIT. PUMP . CURE 
0005213660100000X67185  EA000344 . 89PARTS  KI T , PUMP . OVER 

0005244 5 5C100000Y68038  1EA00 1 04 8 . 51  GEAR  ROTOR 
0CCS24457C1COC0CY68O38  EA0054 1 5 . 6 2 GEAR  ROTOR 

00052635501 OO0OOE672O6R1EAOO0885 . 09MOTOR, ALTERNATING  C 
0005265750100000E67206R  EA001027 . 25VALVE. FLOAT, AIRCRAF 
000532064 01 00000G69334  EA000992 . 14CHANNEL  ASSEMBLY 

000  54  4  6260100000Y6718  5  EA0000  56 . 34 TRANSDUCER.  MOTIONAL 

0005447290100000Y67206  EA000199 . 03 JET. OIL. GEARBOX 

0CC544738010C000Y67206  EA005027 . 74 HOUSING  AND  LINER 

000544873C10000CY67185  EA000 04 1 . 4 9COCK . POPPET  DRAIN 

00055166201000COG67185  EA000  584 . tl CONTROL  PANEL  ASSY 

0005551230100000  63259  EA000004 . 39BUSHING. SLEEVE 

C0055  9514C100000E64197R  EA002 64 3 . 4 3VALVE . TRANSFER .  AUTO 
OO0  56C9C2O1COOOCE64197R1EACCO63  6 . Cl  CYLINDER  ASSEMBLY. A 
0005609030 ICS000E64 1 97R1EA0C0452 . 1 5CYLINDER  ASSEMBLY. A 
CCC56C9C4C:C00C0E64197R  EA0C1293 . 8 1 ACCELEROMETER . HYDRA 
0CC562286010C0CC  64123  1 EA0C 0 4 2 9 . 00SERVOCYLINDER 
0C0562339O1CCCCC  64208  EAC0C684 . 00VALVE. LINEAR. DIRECT 


5MTKPGAM7RE 1 61 5TQH  OARKESS  SZlt . 0053PCMH039S80 . 00 
5MTKU6AM7RE161 5TQH  0ARKE  X  ME 1 4 . 3 3 53 ACMH0265 3 0 . 00 
5 ME  H7RH2915TO  0ARKE  Z  Z  05 . 00C3HVMH000579 . 00 
5KR  H1RM2915T  000KE  Z  l  10 . 3364HVBH00001 5 . 50 
5KR  H1RM2915T  000KE  Z  Z  1 0 . 3 364 HVBH0 0 0397 . 00 
5MMELLBM1 RM1 61  ST  000KE  Z  Z  07 . 63 500VMH0013 1 0 . 00 
5MMELLBH 1 RM1 6 1 5TQ  000KE  Z  Z  1 3 . 53 53HVMH00624 0 . 0 0 
5MEUG3 AM7RE61 0 S LTT  UOARKE  Z  Z  06 . 33 1 OOVMHOO 1 4 50 . 0 0 
5ML  H7RH2915TL  OARKE  X  M  08 . 3364HVMH000860 . 00 
5HC  H1RD5826TL  OOOCL  X  M  0 7 . 63C30VAH00 1 1 8 0 . 00 
5MA  H1RM6695TLC  000KE  P  07 . 0353BDMH000071 . 00 
5KR  H1RM1615T  OOOKE  08 . 5 0 5 3CDBH00024 8 . 00 
5KR  HlRMl 61 5TQ  000KEW1  M  1 5 . 5 0 5 3CDBHOO 5 57 0 . 00 
5MC  H1RM4820T  OOOKE  06 . 3325BDMH000052 . CO 
5H3  H1RD6220T  OOOKE  X  M  07 . 6323HDAH000 729 . 00 
5KD  H1RM1620?  OOOKE  09 . 00200DBH000005 . 50 
5KB  H7RH661 5TQL  7ARKEMX  M  1 C . 33 1 3CCBH002600 . OC 
SKBCVUAM7RH661 5T  OARKEMZ  Z  09 . 0033HVBH00062 5 . CC 
5KBMN2AM7RH66 i ST  OARKEMZ  Z  0  9 . 0063HV8H0  004  4  5 . OC 
5KB  H7RH165CT  OARKESS  SZ 1 0 . 3 363HCBH00 1 28 0 . DC 
5H3JRQBH1RC1650TQU  000CTMZ  Z  05 . 3C 30CVAH.0C 04 2 9 . 0 0 
5MC  H 1 RD1 6  5 OTQUC  OCOCTMX  M  0 6 . 0 3 2 3HCMH0 0068 4  . 0 C 
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3. 0FTLE3 


0005195870 30. 32 C. 400- 99PAD2200034 1 0 . 0C 
OCCS 19599030- 340. 420. 99PAD22C00265C .00 
00C5213S8C34 . 814  .  #90 . 9€PAD2200004  72 . 00 
000521360 030. COO. 000 . OOPAZ060000000 . 00 
000521366030.000.000. OOPAZO6OOOOOOO . 00 
000524455030.000.000. OOPAZ 060000000 . 00 
OCC 524457030. 000. 000. 0QPAZ060000000 . 00 
000526355030.430.620. 91 PAD22 000064 6 . 00 
000526575030 .160 .240 . 98PAD2 200004 15. 00 
000532064030- 000 . 000 . DOPAG220000000 .00 
000544626030.000.000. OOPAZ 060 00 00 0 0 . 0 0 
000544729030.000. 000 . OOPA2O6OOOOOOO . 00 
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00054462606BPRK61 11981771727AYOOOOI  199999799 

00054462606 BP RN00651812521 61ARSTOCR  1999999799 

000 54462606 BP RH001 88 736 5 038 2 ARS TOC F  399999799 

00054 4 6260 6BPR* 60 05081 742872 AY0 0011  799999799 

000 544 6260 6BPRK001 1*70 151 044 LH46SRM  699999799 

000  54462606DGAH0C3831 105N695A  29999  9PH9 

00054487306 BP RN0020420380007APPDETA  199999799 

000 544* 7306BPRN0Q 18*701 5 1045 LH46SRM  699999799 

00054487306BPRN00246CH460020LPPDETA  999999799 

00054487306BPRH002467C1 50045LH46SRM  299999799 

000  54  4  8  7306BPRK0  024  6  723 1 02  2  9LH4  6SRM  5  999997  99 

000S4487306BPRN00651I1251997ARSTOCR  299999799 

0005516620650 1N6I3313251000  5*W0  98  3  199999P87 
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7.  0FTLE7 


0C0S195870701216B05106 

00051 °S 99070007324 0641 0121 5557906 

0005244550700052445721 

0005244570700052445541 

0005263550700431688121 

000560902070018629242700948059421 

0005609030700 94 8059521 

000562286070091241222100944817021 

000571 827070044675764401143563224 

8. 0  FILES 


00051958708B1I91 

1100OG 

00051958708B1892 

11000G 

000519587Q83CH4  6 AX 

1  980G 

:0O519587OI3CH46D« 

1  980G 

0005195870I3CH46DX 

1  980G 

00051 9587083CH4 6EX 

1  990G 

000519587083CH46FX 

1  9  BOG 

0CC519587C83HH46AX 

1  9  BOG 

C005195870  8  3 UH 4  6 AX 

1  9  BOG 

000519587083UH460H 

1  980G 

O0C519587O83UH46CX 

1  980G 

000519587087  LEVREP 

C100GG 

0C0S19599C8B1891 

11000G 

CCC5195990BB1892 

HOOOG 

C00S19599C8B1895 

HOOOG 

00051  95''9083CH4€AX 

1  990G 

COC519599083CH46DM 

1  990G 

COC519S99083CH46CX 

1  990G 

CCC5195990B3CH46EX 

1  990G 

00C519599083CH46FX 

1  990G 

0005 1  9599083 HH4  6 AX 

1  990G 

0CC5  1  9599083 'JH46AX 

1  990G 

0CC51  9599013  w’K4€  DM 

1  990G 

000519599C83UH460X 

1  9  90G 

CCC519599C87LEVREP 

0100GG 

00C52135IC83CH46AX 

2100OG 

C0CS21358CB3CH46DM 

2 1 OOOG 

000521 358083 CW 4 6HX 

21COOG 

0CC521358083CH46EX 

21 OOOG 

0CC521358C83CH4«rX 

2  1  OOOG 

0  C  0  5  2  1 3  5  8  0  8  3  H  h  4  6  AX 

2100CG 

0  C  C  5  2  1  3  5  8  C  8  3  'J  K  4  6  AX 

2 1 C  COG 

000521 358083 VH46CM 

21COOG 

OCC52l3S8083’JH462X 

21 OOOG 

CO!  52  1  360C83.HKX2OX 

1 1 00G2 

CCC52136C0B3SHX2OX 

11C0GZ 

00052 1360C83SHX2FX 

1 10CGZ 

0CC521366C83HHX2DX 

1100GZ 

0CC521366C83SMX2OX 

110CGZ 

0CC521366C83SHX2FX 

1 1 OCGZ 

0  C  C  5 2  4  4  5  5  08A J8 1 R VX 

1 10002 

0CC5  24  4  5  SCIAP2  3RCX 

: :o ooz 

OCC  52  44  5  5  CBBG28RAX 

1  002 

C0C524457C8AJ81BVX 

1 1 0  002 

CC0524457C8AP23RGX 

1 100CZ 

COC 52445^C8BG28RAX 

liOODZ 

0C0526355083CH46AX 

6  4  OOG 

000526355083CH46DK 

6  4  OOG 

CC0S26355083CH46OX 

6  4  OOG 

00C526355083CH46EX 

6  4  OOG 

0CC526355083CH46FX 

6  4  OOG 

000526355083HH46AX 

6  4 OOG 

000526355083UH46AX 

6  4  OOG 

000526355083 UH4 6 DM 

6  4  OOG 

000526355  0  83  UH4  6DX 

6  4  OOG 

000526575083CH.46AX 

2 1 OOOG 

0005265 7 508 3CH4  6 DM 

21 OOOG 

000526575083CH46DX 

21 OOOG 

00C$t€S?S0t3CH46EX 

21  OOOC 

000S26575083CH46FX 

21 OOOG 

000526575083HH46AX 

21 OOOG 

000526575083 UH46 AX 

2 1 OOOG 

C0C52657  5C83UH46DM 

21 OOOG 
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00052657 50 83 UH4  6DX 

21 OOOG 

00053206408B2C21 

110  OOG 

00053206408B2025 

1100OG 

000532064  08 L5AGQNX 

1 1  0  OOG 

C00532064C8I5AGKHX 

1 1 0  OOG 

00054462608B1 891 

110002 

00054462608B1895 

110002 

000544626083CH46AX 

110002 

0005446260S3CH46DH 

110002 

000544626C83CH46GX 

liOOOZ 

000544626083CH46EX 

110002 

0005446260B3CH46FX 

1  5002 

000544626083HH4  6 AX 

UOOOZ 

000544626083UH46AX 

liOOOZ 

00C544626083UH46DM 

110002 

000544626083UH46DX 

110002 

000544626089XRDXXX 

110002 

0CC54472908GB4 7 RAX 

1100DZ 

000  54  4  7  2 90 8 LI AD BLX 

U00D2 

00054473  80 8 GB4 6RAX 

HOOOD 

00CS4487308B1895 

210002 

000544873083CH46AX 

210002 

000544873063CK46DH 

21000Z 

000544873083CH46DX 

210002 

000544  873083CH46EX 

210002 

000544873083CH46FX 

2  5  002 

000544  8  730  8  3HH4  6AX 

210002 

0CCS44873083w'H46AX 

2100C2 

000544873083 UH46  DM 

2100CZ 

00CS44873083UH46DX 

21C0CZ 

CCC55166208B191 1 

» *  0 COG 

C0C551662C8B1912 

1 1C0CC 

0C055166208B1 91 5 

1 1C OOG 

0CC551662C'83UH:exx 

:  5  OOG 

0CC555123C8B2C1 1 

11COOZ 

SCC555123C8ST::eaX 

. 10COZ 

C0C555123083SHX2GX 

1100C2 

CCC555123083SHX2FX 

110COZ 

OCC559S14C8  AAAAAA 1 

1  OOF 

C0C55951 4  08L2AFTCX 

210CGG 

0 0 0 5 6 C 9 C 2 0 8 AAAAAA 1 

1  COF 

0CC5609G2083HBX2TX 

1  OOG 

00C5609C20B3SHX2DX 

1  OOG 

COC5609C30B3HHX2DX 

1  5  OOG 

0005609C3083SHX2GX 

1  5  OOG 

00056090408 I.2AFTCX 

2 1 C  OOG 

C0C562286083TKX1L.X 

1  OOG 

CCC562286083-J.HX11X 

:  coc 

0CC562286083UH1EXX 

1  10G 

0005622860B3XHH1KX 

15 

o 

o 

0CC56233908B1 891 

1 1CCCG 

000562339C8B1 895 

1 1 C  OOG 

0005 62339083 GH46AX 

: : ocog 

0CC562339C83CH46GK 

1 1 0  OOG 

COC  562339083CH4  6CX 

1 1 0  OOG 

0CC562339083CH46EK 

11C COG 

00C562339C83CH46EX 

1 1 OOOG 

OOC562339C83CH46FX 

o 

O 

000562339083HH4  6 AX 

1 1 OOOG 

CCC562339083UH4 6AX 

1 1COOG 

0'1C562339083L,‘H46GH 

: io oog 

9.  Ofile9 


00051 958 709NC06S1 823 50SC7 
OOC51958709NC06S1  82451*723 
000  5;  9587C9W0014672581  68  3 
00051958709*0911682571827 
000519S8709RC91  1682571829 
00051958‘70  9KCC2448:  3701  93 
0005 1  95870 9N 00244  8  1380423 
0005 1 9587C 9N 00244 8 197C437E 
00051958709N0024482360550 
0005595140 9N 65189827209 J 6 
00055 951 40 9W001 I88134A262 
0005595140 9N0C18882 166858 
00C56233909N003835C84V8CCE 
C0056233909NOC3835C84V8C1E 


27702605  BB 
2  7  7  0  2  6  C  5BB 
1  7702606BB 
1AE9VZC6BB 
1AE9VZ06BB 
2770261 5BB 
1770261 5BB 
1  7  7  C  2  €  1 5BB 
17702615BB 
1ZN3XGC3BB 
1AK1 U506BB 
1 77CU506BB 
6  7  5  3QS  0  8  99 
8753CSC83B 
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10.  OFILE10 


CCC51 958710R7COCXREV  DC C  48.49  RE  WK  ATT  SRM 
OOC51958710TOOOOXBRK  CUT  GP  INT 
0  005  3  9507302000 0XGB4  0RD 

0005195071 0TQ003XN0T  I N TER CHANG ABLE  AFTER  AFC  342 
OOO5195071OTOOO2XOBSOLETE  AFTER  INCORP  AFC  342 
OOC519S071OTQOO1XH46  DCN  522-03-010 
0005195991 OUTERE  10732400 
OCOS195991077272P107R3504-10 

0005195991 QT0003XNQT  INTERCHANG  WITH  SRM  CONFIG 
00051 95991 OTOOOOXBRK  OUT  GP  INT 
00051 95991 OZOOOOXGB49RA 

0005195991 OTOO 02X0BSC LETE  AFTER  INCORP  AFC  342 

00051959910T0001XH46  DCN  522-03-C11 

00051 95991ORT00OXREV  DCC  40  49  REWK  AFTER  SRM 

000 521350 10INAVY  0BSAFTAFC2 0 0 INCORP 

00052135010095 13X52-2902-001 

000522 3501 0772 72 XA02PS41 7-1 

0005213 5*1 0Z0000XAD56KA 

00052136010 

0005213601051 663XRA22695 

000521360  lOTOOOOX’JTE  THEN  XA  H-2  DCN  B470-21 
000  521 3 661OT0000XUTE  THEN  XAOZZ  H-2  DCN  B470-2C 
0C0521 3661C51663XRA22694 
0C05244  552CWEURE  0052445'’ 

00052445510 

00 C 524 4  551 0772 7 2X1C7D2 256-3 
CG05244 5710SBYRL  07583299 
C0C5244571CUTERE  0C524455 
00C5244571077272X1O7D2256-2 
00C5244571CT000CXBRK  CUT  GP  INT 
00C5244571C77272X1C7D2256-4 
OOC5244571C012O5X1C7D2 256-2 
0CC5263551  0  If  EURE  04316881 
000526355101 NAVY  USEWITK  A1RPESC  ACT 
0C052635510ZC  C  CCXASGAAO 
0005263551070210X54 1634 -2-1 
0005263 551 0772 72XA02RS 6 CO-7 
00C 5 26 5 75 102 000 0XAD51VA 
000 526575 1077272XA02PS4 24 -11 
000526S751092CC 3X7 -117745-1 

00052657510TOO COXAL"  91 008 1 64 50 1 1 AW  CHPTMSG  5-81 

0005320641097499X570-074-037-15 

00C  S32C64 1 0RTQ0CX9YD661 SCC26C631 4 

0CC532C64 1CT0CC0XNARF  PNCL  DCN  Hl-7-04/323 

C0C5320641C20000XEA32BA 

OCC532C6410TCCC1XNACS  1CC54  05252 

0CC5446261011871P1332-30C0 

0005446261001692X721865 

0005446261081692X1332-3000 

00C5446261CTC0C0XBRK  CUT  GP  INT 

00054472910SBYRL  08347475 

0CC544  7291C 

0CC544 7291 08495 5PF6717S1- 3 
000544738 10SBYRL  09853326 
0CO5447381084955PK674827-7 
000544738108495  5XK6  74  027-5 
0005447381 OTOOOOXBRK  OUT  GP  INT 
0005448',31C77272P114PS460-1 
000  544  8  731  C 920 0  3X3- I  14314 
0005440731 0  96  90  6XMS  51957-14 
DDC55166210SCBRD  O94202CB 
000551 6621O72914P0O-OC99-5 
0005516621096: 02P4369-1OO-23 
0005516621097499X204-075-705 
0CCS5166210Z00  0  0XAMTAB2 
OOOS5166210 96 102X4 400-100-23 
0005516621097499X204-075-705-23 
000551 6621 097499X2041 075-705-23 
C0C55166210Z00  0  0XAMUA8B 
000555123 103 9661P6 11607-1 
0005595141 05BYRL  03191768 
000559514 10SBYRL  03191770 
0005595141  OSBYR L  0055951  3 
0005595141010237P18241-4 
OCO5595141C1O237P2024:  -  5 
0CC559S1 410 1C237X 18241-3 
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OQ0559S1410SOOOOX661S-Q00559514 
OCOS595141CZ  0  OOOX JX  6 1 AA 
0005609021  DtfEURE  09480594 
0005609021 ORTC  0  OXREV  AFC181 
0005609021 OZ  0  OOOXAD1 4 VA 
0OC5609C21OSQOO0X1650-001068S10 
0005 609021010237X20053-1 
00056090310 

0 0  0  5609031 01  NAVY  USEBEFOREAFC 1 8 1 INCORP 

0005609031 OWEURE  09480595 

0005609031010237X20366-1 

OOOS6090310ZOOOOXAD14WA 

00 0 5 609041 01 023 7p 19720 

00  0  560904  lOZOOOOXARUCA 

00056228610 WE U R E  09448170 

0005622861  OS 0000X1 650-009124 1 22 

0005622861 020000X003496 

0005622 861 092 003XSGT220-1 

000562339107 02 36P64 02 

0005623391019204X11615819 

0  00  5 623 391 OZ 0 OOOXCD58 JA 


11.  0FILE11 


00C5213581 1N2R43PY1 
0CC54  4  62  61  IN'.  R5MN7B 


12.  OFILE12 


OCC 532064 12A502A501PS60 
000 5622 861 2K2R2A702XS1C 
00056233912A702A702PS4K 


NALL 

F5CTFG37NAT 

F5CTFG37NAT 


APPENDIX  F 

LOCATION  OF  DEN  NUMBERS  IN  THE  NSN  SNAPSHOT 

NSN  Snapshot 

Kov  16,  1988 

DO  4  CD 


NSN  : 

CO C  3  ♦  C003A  ♦  C 04  2  +  D04 

6D 

SMIC 

C003B 

Name : 

C004 

DRIP  R : 

BCOi  LRC: 

BC02B 

Near  Out 

FOOT 

CNS 

BOO  7 

R1C: 

DO 0  6  PLT: 

BC11A 

Survi val 

TOD  9 

Shelf 

CO  2  8 

Source : 

DC  1 2  IMC : 

C01  6 

Entry  DTD 

CO  1  2 

FGC 

CO  0  1 A 

Recovery : 

D013C 

Hold  DTD 

B04  5 

PA  C 

C009 

ISC 

D02  5DEF_E  0#  9 

Std  Price: 

BC  5  3  Net  Price: 

BO  5  9 

Rpl  Price: 

BOSS  Unit  Issue 

COOS 

MGR 

MULTI 

USER 

PNC 

FSCM  Part  ♦ 

MOE 

MGR_MOE 

MOE 

CC  3  8 

C03S_BC  DCC1_C004C 

DC  9  5 

DC  94 

D09S-A 

These  Th 

ree  Fields  Are  Repeating 

These  Three 

Fields 

Are  Repeat 

Current 

Ot 

r  Mai 

r.t  DMD 

Obs 

A00  5 

Current 

Qt 

r  OVH 

I.  DMD 

Obs 

A005A 

Est  Qtrly 

DMD 

During 

PLT 

BC  T  4 

Total  Back  Orders 

AO  11 

Total 

Awarded  Due  ins 

calcula* 

ed 

Total 

UnAwarded  Due^ir.s 

calculated 

Application  Data 

ACT  Application  UPA 

DO 0  9  DC  11 

These  Four  fields  are 

PCT  MC  ACT  Application 

F01I  DO 1 3  DO  C  9 

repeating  in  two  columns. 

UPA  PCT  MC 

DO  11  F  0 1 8  DO  13 

PTAS  Data 


Or.Hand  Due -In 

rf: 

Due-Out 

PPRS 

SD  ! 

ncn-rf: 

PC  CC  OnHar.d  Due-In  Due-Out 

PC  Or.  Hand 

PUR  ALL 

Due-lr.  Due-Out 

FPRs 

AC  1  2 

ACC8B 

A021  A 

AC  1  4 

B046A 

AC12A  C003E  AC12  A008B  A021A  ' 

AC  12  AC  12 

AC08B 

A  0  2  1 A 

AC  14 

L  SUM 

SUM 

SUM 

SUM 

SUM  SUM  SUM  l 

SUM 

SUM 

SUM 

SUM 

Dua-Ina 


Total  “  0 


Document  Document 

ID  /  Call 

FOCI  K0C2_LC0: 

Repeating  Fields. 

CLIN  From 

LC2  2  AO  01 

TO 
AO  0  1  _ 

QTY  QTY 

Contracted  Shipped 

2ND  L034  AC  1 2  A 

Purpose 

Code 

CCC-3E 

Condition  EST  Delivery 
Code  Date 

LCC9 

Back  Ordara 

Total  BB-  0 

DOC 

F0C2  F  0  2  C 

cty 

F036 

PRJ  PR  FD 

KC24  KC25  K022 

BBD 

STATUS 

K026 

Plannad  Program  Raquiramanta 


Total  DGA- 

0 

Total  101 

0 

Total  SC 

0 

Total  BPR- 

0 

Total  301 

0 

DOC  TD 

Dncument 

PC 

SUPAD 

QTY 

REQD 

PROJ 

FOCI 

KCC2 

A012A 

F  0 1 7 

K00  6 

F  0  1  8 

F0  2  4 
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APPENDIX  G 


PHANTOM  USER  LOGIN  MACRO 


y******* 


'  nsn  snapshot  -  selection  Macro  to  build  NSN  Snapshot 

'  Written  by  Lt  George  Marentic  Dec  1988 


include 

include 

include 

include 

include 

include 


"app_ids . h" 
"errorcodes . h" 
"field_read.h" 
"filing. h” 
"spreadsheet . h" 
"windows . h" 


Command  sr.ap_l 

var  ofl,cf2,of3,of5,of6,of8,of9,ofl0,ofll,ofl2 

var  1 i ne_count ,  NIIN,  D046D_1,  D046D_2,  D046D_3,  D046D_5,  D046D_8 
var  D04 6D_6 , D04 6D_9, D04 6D_10,  D04 6C_1 1 , tmp, The_current_window 
var  DC46D1  1,  D046C1  2,  DC96D1  3,  NIIN  2,  D046D_12,  CHECK 


' o ut_rec_i 

var  D096C,B045,C016,CC12,BC76£,B007,C005,B055,C004,B002B 
var  C0C1A, C0C1B, COO 3, CC03A, C042, D010_A_D, C028, D014A 
var  C0C9, B001 , B01 1A, DC2 5CEF_E089, C003B, B053, E089, ACC_T 
var  B001_A, B00I_B, B001_C, BO 01_D, B001_E 

»w»»**l»**w****»*****»«»**»*«»r*)HHr**W*w*******«****»»*****»***W****»WW**WW* 


' out_rec_2 

var  A0C5,  ACCSA.BO'M,  AO  11,  ECO 7,  D008 

•  ************************************* 


' out_rec_3 

var  B012  BC 1 2C , B01 2F, FC09, 2012 , DO! 3C, D1 20,  B059 


********** 


******** 


out_rec_5 

var  KC01,KC02_1001, L001A,EC22  ,A001  ,AC0i_2NC  , ORIG_QTY 
var  AC12A  , A012A_2NC , CCC3E  , LOO 9 . 1039 , ccunt_5 , print _5 , hold_5 
var  loop_5,  spct_5 


********** 


************** 


*************** 


out_rec_6 

var  KC01_6,KC02_6, A012A_6,K017_6,K006_6,K018_6,K024_6 
var  prir,t_6,  hold_6,  count_6,  ioop_€,  spot_6 


************ 


************* 


************** 


out_rec_8 

var  D00 9_1 , D011_l , F018_l , D01 3_1 

var  prir.t_8,  hold_8,  ccunt_8,  loop_8,  spot_8 


r«**t**i 


******************* 


********** 


out_rec_9 

var  KC32_K02C,K036,KC22,KC25,K026,K024  9 


var  print_9,hold_9,count_9,loop_9,  spot_9 


►  ******»«****i>*»*«**»**« 


t**t***»*t**i 


out_rec_i C 

var  C035_B_C_1,C038_1, D001_C004C_1 
var  print_10, hoid_10 , count_lC, loop_10 


******** 


************* 


' cut_rec_ll 

var  D093 , DO 95_1 , DC 95_2 , DO 95_3 , DO 95_4 , D095_5 , D095_6, D095_7 , DO 95_8 
var  D095_9, D095_10 

var  print_ll,hold_ll, count_ll , loop_l 1 

'*#**********»**********»*******«»********#******»****************** 


'  out_rec_12 

var  C0  93_12,  009<_1,  D094_2,  DC99_3,  D094_4,  D094_5,  D094_€,  D094_7 
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var  DC  94_8 ,  D094_9,  DC94_10 

var  D09512_1,D0 9S12_2 , DO  9512_3 , DO  9512_4 , D0951 2_5 , DO 951 2_6 
var  D09512_7,D09512_8,DC9512_9,D09512_10 
'rar  print__12,  hold__l  2 ,  count_12,  2  oop_l  2 

'*rw*w*«*******w,r*»*»*»ir**ir*w***»*w**«*«*w*«***»******w******» 


Open  each  file  so  the  data  can  be  read  from  it. 


»**»***, 


,*******»*»» 


open : 

open_file ("info/ofilel .txt”, ”r“) 
open_file ("info/ofile2.txt",”r") 
open_f ile ("info/ofile3.txt","r") 
oper._f  i  le  ("info/ofile5.txt","r") 
open_f i le (”info/ofile6.txt",°rn) 
open_f ile  ("info/ofile8.txt","r") 
open_file (ninfo/ofile9.txt","rn) 
oper._file  Cinfo/ofilelO.txt",  "r") 
open_file  ("info/ofilell.txt" ,  "r") 
open_f ile ("infoZofilel2.txt", "r") 

'*  Initial  opening  i  reading  of  the  file  to  determine  the  NUN  for  the 

*********************************************************************** 


of5  «  read_file  ("info/cfile5.txt") 

DC  4  6D_5  =  subst  r (cf 5 , 1 , 9) 
hold  5  -  DC46D_5 

of€  =  read_f  ile  ("ir.f  o/of  i  le6  .  txt  “ ) 
D046D_6  =  substr  (of  6, 1,  9) 
hcid_6  =  D046D_6 

of6  =  reaa_fi le ( "info/of i 1 e8 . txt “) 
DC46D_8  =  substr  (of8, 1 , 9) 
hold_8  =  D046D_8 

of9  *  reaa_f ile ("info/of i Ie9 . txt" ) 
DC46D_9  =  substr  (of  9, 1,9) 
hcid_9  =  DC4  6D_9 

oflO  =  read_f  ile  ( "ir.fo/of  ilel  0 .  txt " ) 
D046D_1C  -  substr  (cflC.  1,9) 
hold_lC  =  D046D_10 

ofll  =  read_file ( "inf o/of i lei 1 .txt") 
DC46D  11  *  subst r  (ofll , 1 , 9) 
hoid_::  =  dc46d_ii 

of!2  =  read_f i le ( "info/of ile!2 . txt ") 
DC4CD_12  -  substr  (of!2, 1 , 9) 
hold_12  -  DO-9 6D_12 
line_count  »  C 
P-  -  -  : 

line__co‘jnt  =  line_count  1 


*  START  POLLING  DATA  FROM  OUT-REC-i 

*  READ  THE  FIRST  9  CHARACTERS  OF  THE  LINE... CALL  THEM  "NUN" 

*  THE  VALL'E  THAT  WILL  BE  CHECKED  IN  EACH  OUT_REC  PULL. 

*  HOLD  DATA  IN  PROGRAM  FROM.  ALL  PULLS  UNTIL  THE  END. 


*»**************«***, 


,************■ 


THIS  KILL 


of!  =  read_fi le {"info/of i lei . txt ") 

D046D  =  substr (ofl, 1, 9) 

NUN  «  D046D 

if  DC46D  =  "0C0000CC0"  then  goto  finish 
D046D1_1  =  subst r ( of 1 , 1 , 2 ) 

D046D1_2  =  substr (ofl, 3, 3) 

D046D1_3  =  substr  (ofl,  6,  4) 

NI1N_2  =  DO  9  6D1_1  +  "  —  "  +  +  DC  4  6Dl_2-»,'f  n  —  "+  +  DC  4  6D1  3 
8045  =  substr  (of 1 , 12, 5) 

C01 6  =  substr  (ofl,  17,1) 

C012  «  substr (ofl, 18, 5) 

8076E  =  substr  (of 1 , 23, 1 ) 

BCC7  *  substr (of 1 , 24 , 1 ) 
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COOS  «  subst r (of 1 , 25 , 2) 

B055  =  substr  (ofl,  27,  9) 

C004  =  substr (ofl, 36, 22) 

B002B  =  substr (ofl, 58, 3) 

C001A  =  substr (ofl, 61, 4) 

C001B  =  substr  (ofl, 65, 1) 

C003  =  substr (ofl, 66, 2) 

C003A  =  substr (of 1 , 68, 1 ) 

C042  =  substr (ofl, 69, 4) 

D010_A_D  =  substr (ofl, 73, 5) 

C028  -  substr  (ofl, 78, 1) 

D014A  =  substr  (ofl, 79, 2) 

C009  =  substr (ofl , 81 , 2) 

B0C1_A  -  substr (ofl, 83, 1) 

B001_B  =  substr (ofl , 84 , 1 ) 

B001_C  «  substr (ofl, 85, 1) 

B001_D  =  substr (ofl, 86, 1) 

B001_E  =  substr (ofl, 87, 1) 

B011A  =  substr (of 1 , 88, 5) 

D025DEF_E089  =  subst r  (of 1 , 93 , 4 ) 

E089  =  substr (ofl , 96, 1 ) 

C003B  =  subst r (of 1 , 97, 2 ) 

B053  =  substr  (ofl,  99,  9) 

>**»****W**********W***********'*****WWW*'********W******W***'**'***«*W'**** 

*  *  START  PULLING  DATA  FROM  OUT-REC-2 

'*  HOLD  DATA  IN  PROGRAM  FROM  ALL  PULLS  UNTIL  THE  END. 

»******»******w**»*««»»**W*W«»1(**»**»**»»r»»***»***»*****»*****l*******»* 

start_2 : 

if  DC46D_2  =  NUN  goto  out_rec_3 

if  DC46D_2  =  "OOOCOOCCC"  goto  out_rec_3 
of2  »  read_file  ("info/of  ile2 .  txt 11 ) 

DG4 6D_2  =  substr  (of2, 1,9) 
if  D046D_2  =  ""  goto  out_rec_3 
pul 1_2 : 

AC05  =  substr (of2, 12, 8) 

A0C5A  =  substr (of2, 20, 8) 

BC74  =  substr (of2, 28, 8) 

AC11  -  substr (of2, 36, 8) 

F0C7  =  substr  (of 2, 4 4 , 4 ) 

D0C8  =  substr (of2, 48, 10) 
if  D046D_2  =  NUN  goto  out_rec_3 

'%%%%%%»%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%»%%%%%%%%%%%%%%%%%%%%%%% 
'%  IF  NOT  =  NUN  (Set  values  pulled  items  (X  D046D_2)  to  null) 
'%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%*%»%%%%%%%%%%%%%%%%%%%%%% 

ACC5 =AC0 5A=3 074 =A011=F 007=0008="  " 
goto  out_rec_3 

*  ********************************************************************** 

' *  START  PULLING  DATA  FROM  OUT-REC-3 

'*  HOLD  DATA  IN  PROGRAM  FROM  ALL  PULLS  UNTIL  THE  END. 

********************************************************************** 

out_rec_3 : 

if  D046D_3  =  NUN  goto  out_rec_5 

if  DG46D_3  =  "000000000"  goto  out_rec_5 
of3  =  read_f ile  ("inf o/of i le3 . txt " ) 


D046D_3  =  substr (of3, 1 , 9) 
if  DC46D_3  =  ""  goto  out_rec_5 
pul i_3 : 

B012_B01 2C  *  subst r (of 3 , 12,4) 
B012F  =  substr  (of 3 , 16,4) 

F009  =  substr  (of 3, 20, 4 ) 

DC12  =  substr  (of 3, 24 , 2) 
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D013C  =  subst r  (of 3 , 26, 1 ) 

D120  =  subst r  ( of 3 , 27 , 2 ) 

B05  9  =  substr  (of3, 29, 1C) 
if  DG46D_3  =  NUN  goto  out_rec_5 

'%%%%%%%%%%%%»%%%%%%%%%%»%%*%%%%*%%%%%%%%%%%*%%%%%%%%%%%%%%%%%%*%»%%%% 

'%  IF  NOT  =  NUN  (Set  values  pulled  items  (X  D046D_3)  to  null! 

'%%%%  tt  %%%%%%%%%%  %%%%%%%%% 

B012_B012C=*B012F=F009=D01 2=DC1 3C=DI  20=B05  9="  " 
goto  out_rec_5 

'*winr*********w****inrinr********«ir*'****it******’***jr**jr**#-*****#*#******* 

•  *  START  PULLING  DATA  FROM  OUT-REC-5 

**  HOLD  DATA  IN  PROGRAM  FROM  ALL  PULLS  UNTIL  THE  END. 

***»**»»#*»*«#*ir**»»*****w****«**ir***it*»»r*lnr**w*i**#»***w*»*****»****** 

out_rec_5 : 

count_5  =  1 

if  D04  6D_5  =  NIIN  goto  pull_5 
if  D046D_5  <>  NUN  goto  out_rec_6 

next_l i ne_5 : 

of5  =  reaa_f iie ( "info/ofi le5 . txt “) 
count_5  =  count_5  +  1 
DC46D_5=  subst r (of 5 , 1 , 9 ) 
if  DC46D_5  <>  NUN  goto  out_rec_6 
pul 1_5 : 

KC01  ;  count_5>  =  subst r (of 5, 1 2 , 31 
KCC2_L001  [cour.t_5]  =  subst r  (of 5 , 1 5 , 15 ) 

L0C1A ’count_5j  =  subst r (ofS, 3C, 4 ) 

LC22 [count_5]  »  substr (of5, 34, 6) 

AC01 [count_5]  =  substr (of5, 40, 3) 

ACC1_2ND  ! cour.t_5]  =  substr  (of5, 43, 3) 

ORIG_QTY [count_5i  =  subst r  (of 5 , 4 6, 7 ) 

CCD3E [count_5]  =  substr  (cf5, 53, 1) 

L009  (cour.t__5!  =  subst r  (of  5 ,  54 , 5 ) 

LC34 [count_5]  =  substr (of5, 59, 7) 

AC12A[count_5J  =  substr (of5, 66, 1 ) 

A012A_2ND [count  5!  =  substr  (of5, 67, 1 ) 
hoid_S  =  DQ4  6D_5 
goto  next_line_5 

*  *»*****»»***»***»*»»»»**»**»»***»»»*»**»**»**»*»****»******»»»*»**** 

'*  START  PULLING  DATA  FROM  OUT-REC-6 

'*  HOLD  DATA  IN  PROGRAM  FROM  ALL  PULLS  UNTIL  THE  END. 

'***»»**»»»*»www**it«w»w*w*»w*WT»i»»*»*»w*w*»»*»»***»-*»*w******»'«*w*»*** 

out_rec_6 : 

count_6  -  1 

if  D046D_6  =  NUN  goto  pull_6 
if  DU6D_C  <>  N I  -  N  goto  uu*  reo_9 

r.ext_line_6 : 

o f  6  =  reaa_f  ile  ( "ir,  fc/cfi  ie6  .  txt  ”) 
count_6  »  count_6  *  1 
D046D_6  =  subst r  (of 6, 1 , 9) 
if  D046D_6  <>  NIIN  goto  out_rec_8 
pul 1_6 : 

KCCi_6  [count_6"j  =  substr  (of  6, 12,  3) 

K002_6 [count_6]  =  subst r (o f 6, 1 5, 1 4 ) 

AC12A_6 [count_6)  »  substr (of6, 29, 1) 

KOI  7_6  [  cour.t_6  ]  =  substr  (of  6,  3C,  6) 

K006_6 [ count_6j  =  subst r  (of 6, 36, 7 ) 

KC18_6 [count_6]  =  subst r (of 6 , 4 3, 5 1 
KC24_6 [count_6!  ~  subst r (o f 6, 4 8, 3 1 
hold_6  =  D04  6D_6 
goto  next_line_6 

1  *•**'***»*******#*********'*********»***'»*****»**»*****★*»****************'****** 

' *  star:  pulling  DATA  FROM  OUT-REC-8 
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HOLD  DATA  IN  PROGRAM  FROM  ALL  PULLS  UNTIL  THE  END. 


out_rec_8 : 

count_8  -  1 

if  DC46D_8  =  NIIN  goto  pull_8 
if  DC46D_8  <>  NIIN  goto  out_rec_9 

next_line_8: 

cf8  =  read_file ("info/of ile8 . txt") 
count_8  =  count_8  +  1 
D046D_8  «  substr  (of8, 1, 9) 
if  D046D_8  <>  NIIN  goto  out_rec_9 
pull_8 : 

DCC9_1  ,rcount_8]  =  substr  (of 8, 12, 10) 
D011_l [count_81  *  substr (of8, 22, R) 
FC18_1 [count_8)  =  substr  (of 8, 28, 3) 
D013_l [count_8]  *  substr (of 8, 31, 2) 
hold_8  =  D04  6D_8 
goto  next_lir.e_8 


*★*****•»*■***« 


'*  START  PULLING  DATA  FROM  OUT-REC-9 

'*  HOLD  DATA  IN  PROGRAM  FROM  ALL  PULLS  UNTIL  THE  END. 

,***ir*wir****ir***'******iir»******ir****www»w,*****'***iir*'**-K*w**'«*********'r»** 


out_rec_9: 

count_9  =  i 

if  D046D_9  =  NIIN  goto  puli_9 
if  DO 4 6D__9  <>  NIIN  goto  out_rec_i 0 


*  n  *  t 


r.ext_lir.e_9: 

of9  =  read_file  ( "info/of  i  le9 .  txt  ■' ) 
ccunt_9  =  count_9  +  1 
DC46D_9  »  substr  (of 9,  1,  9) 
if  DC46D  9  <>  NIIN  goto  oui_rec_lC 
P-1 i_9 : 

KS02_K020 [count_9]  =  substr (of9, 12, 151 
KC36 [count_9i  =  substr (of 9, 27, 5) 

KC24_9 'cour:t_9;  =  substr  (of  9,  32,  3) 

KC22  icour,t_9',  •  substr  (of9,  35,  2) 

XT25  :Count_9i  =  subst r (of  9, 37, 2) 

K026  [couRt_9]  «  substr  (of  9,  39,  2) 
hold_9  -  DC4 6D_9 
goto  next_line_9 

"  START  PULLING  DATA  FROM  OUT-REC-10 

’*  HOLD  DATA  IN  PROGRAM  FROM  ALL  PULLS  UNTIL  THE  END. 

#*»*****»***»**T»**»»»*»»*********w******w*******i***»*****»«**«»*»**»***»»r*T»»* 

out_rec_l 0 : 

cour.t_IC  =  1 

if  DC46D_10  =  NIIN  goto  puli_lC 
if  DC4  6D_1 0  <>  NIIN  goto  out  rec  11 


next_iine_l 0 : 

oflO  =  read_f ile ( "inf o/of ilel 0 . txt " ) 
count_lC  =  count_10  +  1 
D046D_10  =  subst r ( of 1 0 , 1 , 9) 
if  D046D_10  <>  NIIN  goto  out  rec  11 
pul 1_1 0 : 

C035_B_C_1 [count_10]  =  substr  (of 1 0, 12, 5) 
CC38_1 [count_10 ]  =  subst r  (of 1 0 , 1 7, 1 ) 

D001_C004C_1 [count_10]  *  subst r (of 10, 1 8 , 32 ) 

CC35_B_C_2 [count_10]  =  subst r (of 1 0, 50, 5 ) 
CC38_2  [rcour,t_l  C =  substr  (of  1  C,  55,  1 ) 


L 
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DCC1  CCC4C_2  [cour.t_lO!  =  subst r (of 1 0, 56, 32 ) 
C035_B_C_3  [ccur.t_10]  =  subst r ( of I C, 88 , 5 ) 

C038~3  [ count_10]  =  substir  (oflO,  93, 1 ) 

D001  CCC4C  3[cour.t_10;  =  subst r (of 1 C , 94 , 32 ) 


nold_10  =  DC46D_10 
goto  next_iine_10 

•  ***#*»**«»*%****»*****»**■**»» 


'*  START  PULLING  DATA  FROM  OUT-REC-11 

'*  HOLD  DATA  IN  PROGRAM  FROM  ALL  PULLS  UNTIL  THE  END 


out_rec_ll : 

count_ll  =  1 

if  D046D_11  =  NUN  goto  puil_ll 
if  D046D_11  <>  NUN  goto  out_rec_12 


next_line_ll : 

ofll  =  read_f ile ("info/of ilell . txt " ) 
cour.t_ll  =  count_ll  +  1 
D046D_11  =  substr (ofll, 1, 9) 
if  D046D_11  <>  NIIN  goto  out_rec_12 
puil_ll : 


DO  93 [ count_l 1 ]  = 
D0  95_l  [cour.t_lI  J 
DC95_2 [count_ll j 
DO  95_3 [ count_l 1 ] 
DC95_4 i count _11 
DC 95~5 [count _11 j 
D095_6 [ count _1 1 ! 
DC 9S~7 [ count _11 1 
DC 95_8 [count  II ] 


DC95_9  [count_ll] 
DO  95_1 0 [ count_l 1 ) 
bold  11  =  D046D  11 


substr  (ofll, 12,4) 

=  substr  (ofll, 16, 4) 

=  substr  (ofll , 2C, 4) 

=  substr (ofll , 24, 4 ) 

=  substr  (ofll, 28, 4) 

=  substr  (ofll,  32,  4) 

=  substr (ofll, 36, 4) 

=  subst r (of 11 , 40, 4 ) 

=  substr (ofll , 44,4) 

=  subst r  (of 11 , 48 , 4 ) 

=  substr  (ofll, 52, 4) 


goto  next_line_ll 


^##***ir*»**#»*»**«»*»»***«*»*****w**»w*»**#*»*'***lr** 


*  * 


”  START  PULLING  DATA  FROM  OUT-REC-12 
"  HOLD  DATA  IN  PROGRAM  FROM  ALL  PULLS  UNTIL  THE  END 


c_t_rec_12 : 

count_12  =  1 

if  DC  4  6D_1 2  =  NIIN  goto  puil_12 
if  DC46D_12  <>  NIIN  goto  out_rec_ena 


ofl2  =  read_file( 
cour.t_l  2  =  cour,t_ 
D046D_12  =  substr 
if  DC4  6D_12  <>  NI 
pull_12 : 

D093_l 2 [ count _1 2 ] 
DC  94_1 [ count_l 2 ) 
D094_2 [ count_l 2 ; 

DC  94_3 [ count_12] 
D094_4 [count_12] 
DC94_5  [cour.t_12  j 
D094_6 [count_12] 

DO 94_7  [ cour.t_12 !  ■ 
D094_8 [count_12’  ■ 
D094_9 [count_12]  ’ 
D094_10 icount_12] 
D09512_l [count_I2 ) 
D095I2_2[count_12) 
DO  95 1 2_3 [ count  12) 


"ir,fo/ofilel2.txt") 

12  -  1 
(of  12, 1 , 9) 

IN  goto  out_rec_er.d 

-  substr (ofl2, 12, 4) 

=  substr (ofl2, 16, 8) 

«  substr (ofl2, 24, 8) 

=  substr (of!2, 32, 8) 

=  subst r ( of 1 2 , 4 0, 8 ) 

=  substr (ofl2, 48, 8) 

=  substr (of 12, 56, 8) 
substr  (ofl2,  64,8) 
substr (of!2, 72,8) 
substr (ofl2, 80,8) 

=  substr (ofl2, 88, 8) 
subst  r (of 12, 96, 4 ) 
subst  r(cfl2,10C,4) 
subst r (of 12, 104, 4 ) 
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DO  951 2_4 [ count_l 2 ]  = 
D09512_5[count_12)  = 
D09512_6 [count_12]  = 
D09512_7  [courst_12]  = 
D09512_8 [count_12  J  = 
D09512_9 [count_12 ]  = 
D09512_l 0  I  count_12 J 
hold_12  =  D046D_12 

goto  next_line_12 
'line_count  =  line_count 
out_rec_end: 

t *********************** 


substr 

(of  1 2 , 

108, 

4) 

substr 

(of  1 2 , 

112, 

4) 

substr 

(of  12, 

116, 

4) 

substr 

(of 12, 

120, 

4) 

substr 

(of 12, 

124, 

4) 

substr 

(ofl2. 

128, 

4) 

subst 

r  (cfl2 

,132 

,  4 

+  2 

****************** 


********************** 


'  *  Make  sure  that  the  Main  Menu  is  the  current  window. 
'******************♦*************************************************»**** 


'on  error  goto  data_pull 

'check  =  find_DOC (NIIN++"  ss"++"  1",0) 

'goto  pull 

data_puli : 

lnterrupt_key 

type  CM") 

Execute_key 
Escape_key  (5) 

3ack_return_key  (2) 


*  Open  the  Spreadsheet. 

*  1.  If  the  spreadsheet  already  exists  the  old  data  is  removed. 

*  2.  If  the  spreadsheet  does  not  exists  it  is  created. 

************************************************************************* 


cper_SS : 

menu_type ( "e", "Main  menu  option:  ") 
returr._key 

menu_type (NIIN-n"  ss"*+"  l","Name:  ") 
return_key  (1 ) 

Kait_whi  lejsusy ( ) 

trp  =  C'JRRENT_WINOOW_NUM_() 

The_current_window  =  WINDOW_INFO  (tmp) 

if  The_current_window  [WINd£x#AP?_TYPE_)  <>  AP?#MAIN_  goto  Start_ss 
returr._key  menu_type ("thesis" , "Drawer :  ") 
returr._key 

menu_type ( "data" , "Folder :  °) 
return__key  (2) 

menu_type ("s", "Pick  a  document  type:  ") 
returr._key 

men.u_type  ("snap  ss  1",  "Style  guide/model  document:  ") 

return_key 

execute_key 

wai t_whi le_fcusy ( ) 

Startss: 

'  make  sure  the  spreadsheet  is  purged  of  old  data 
purge 

'  move  cursor  to  A1 
home_l ine_key 
returr._key 
Wait_while_busy  () 
menu_type (" r" , "P ick  an  option:  ") 
returr._key 

menu_type ("al", "Range  or  cell:  ") 
return_key 


write : 

I  ************************************************************ 

'*  Start  writing  data  to  view  1 

************************************************************* 
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return_key 

type  (" '  ”»*CCC3  +  +  C0C3A»  +  "  "r  +  CC42  +  *"-"-*--*NI IN_2 ) 
reiurn_key  (5) 
type (C0C3B) 
return_key 
home_l ine_key 
return_key 

menu^type ( "r" , "Pick  an  option:  ") 

_eturn_key 

menu_type ("b3" , "Range  or  ceil:  ”) 
return_key 
type { C  0  0  4 ) 

down_arrow_key  down_arrow_key 

if  the  DRIPR  Char  space  is  blank 
"  then  goto  DRIPR1 


then  goto  DRIPR2 


then  goto  DRIPR3 


then  goto  DRIFR4 


"  then  goto  DRIPR5 


3C01_B*»BCC1_C*-33C1_D**3CC:_E 

type  (3031)  Down._arrow_key 
type(D038)  Down_arrow_key 
type(D312)  Dcwr._arrow_key 
type(DC13C)  Dowr._arrow_key  (2) 
type(BC53)  Dow.n_arrow_key 
type(3C55)  return_key  (2) 

7ype(CCC5)  up_arrow_key 
type (3359)  up_arrow_key  (3! 
type(C016)  up_arrow_key 
type(3311A)  up_arrow_key 
type (33323)  return_key  (3) 
type(FCC7)  Dowr._ar row_key 
type(F339)  Down_arrow_key 
type(C312)  Dow.o_arrow_key 
type(B345)  Dowr._arrow_key 

type (D325DEF_E08 9)  returr._key  (2)  up_arrow_key 
type(C039)  up_arrow_key 
type(COOIA)  up_arrow^key 
type(C328)  up_arrow_key 

type (BOOT)  up_arrow_key  (2)  left_arrow_key 

»*'*******************************************»**-*«*****»*«-*r**i»-***»**»***» 

'*  Write  the  Acquisition  advice  code 

*************************************************************  ****»*»**»»+* 

if  EG89  *  "T"  then 

ACC_T  =  "CONDEMNED"  else  goto  next_l 
goto  print 
next_l : 

if  E089  =  "V"  then 

ACC_T  =  "TERMINAL  ITEM"  else  goto  next_2 
goto  print 
next_2 : 

if  EC8 9  =  "Y "  then. 


* ##Places  an  _ 
if  B001_A  <>  " 
B3GI_A  = 

DRIPR1 : 

if  B00i_B  <>  " 
3331_B  =  "_" 

DRIPR2 : 

if  B33i_C  <>  " 
B331_C  = 

DRIPR3 : 

tf  B331_D  <>  " 
B331_D  = 

DRIPR9 : 

if  B331_E  <>  " 
B331_E  = 

DRIPR5 : 

3301  =  BCC1  A-* 
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ACC_T  =  "TERMINAL  ITEM"  else  goto  next_3 
goto  print 
r.ext_3 : 

ACC_!  = 

print : 

type { ACC_T )  return_key 


horce_l ine_key 
return_key 

menu_type ( " r" , "Pick  an  option:  ") 
returr._key 

menu_type ( "al 4 " , "Range  or  ceil:  " ) 
return_key 
wri te_l 0 : 

1 oop_l C  =  I 

if  hoid_lO  <>  NUN  goto  af ter_l 0 
wri  te_lC_A : 

type  I  w<Stt  ++C038_l  [iccp^lO] )  ret’jrn_key  type  ( " '  "  +  +  C035_B_C_1  [  1  oop_I  C ;  )  refjrn_key 
type ("' "  +  +  D0C1_CGC  4C_1 [ loop_I0] ) 

return_key  got c_key  goto_key  ief t_arrow_key  down_arrow_key 

'  type  ("An-*  +  CC3S_2  [  1  oop_l  C  •  )  returr._key  type  { " '  "  -  -*-C  C  3 5_B_C_2  [  iocp^l C '  ) 

'  re t rr._key  type  ("'  " •’■-DO C  1_CC C 4C_2  [ioop_10]  ) 

'  returr._key  goto_key  gotc_key  left_arrow_key  down_arrow_key 
'  type  ( "  A  "-^CC38_3  [  ioop_l  C  ]  )  returr._key  type  ( " '  "  +  ^CC35_B__C_3  [  1  oop_l 0 )  ) 

'  return_key  type  ("'  "-OCCl_CCC4C_3  [lcop_10 ]  ) 

'  return_key  ac t  c_key  gotc_key  left  arrcw_key  dowr,_ar  rcw_key 

-  oc p _ -  =  *  o o p _ —  ^  *  j. 

if  lcop_lC  <  cci;r,t_lC  gctc  write_lC_A 
af ter_l 0 : 
r.ome_l  ine_key 
refirr._key 

mer.-a_type  ( "r" ,  "Pick  ar.  optior.:  ") 
returr._key 

nervj_type ( "gl A  ", "Range  or  cell:  ") 
returr._key 
wr i te_l 1 : 
lacp_ll  =  1 

if  hcld_il  <>  NTIN  gore  after_ll 
type  (DC93  ;ioop_ll|  )  returr._*ey  (2) 
write  11_A: 

type(DC9:_l  [  1  oop_i i  '■  )  Dowr_arrow_key 
type  ( D C 9 5_2  [  1  ocp_l  1 }  )  Dowr_arrow-_key 
type  (DC  9S_3  [  1  oop_ll  ]  )  Dcwr._a r rcw_key 
type(DC95_<;i  ocp_l  1  1  )  Dcwr._arrow_key 
type  (DC95_5  '  loop_ll !  )  Dowr._arrow_key 

type  (DC  95 _ 6  '  1  ocp_l  1  ]  )  Dowr._arrow_key 

type  (DC  95_D  [  loop_l  1 ;  )  Dowr,_arrcw_Key 
type  (DC  95_8  t  ioop_l  1 1  )  Dowr._arrow_key 
type  (DC  95_ 9  1  ocp_l  1 '  )  Dowr._a rrow_key 
type(DC95_lC[  loop_l  1  j  )  Dowr._arrow_key 
loop_ll  =  loop_ll  *  1 

if  locp_ll  <  cour.t_li  gotc  write_ll_A 
after  1 1 : 
write_12 : 
lcop_i2  =  1 

if  hold_12  <>  NUN  goto  after_12 
type (D093 [ loop_ll j )  returr_key 
write_12_A : 

type  ( D 0 9 4_i  [ Loop_12 1  )  Dowr._ar row_key 
type  (DC94_2;icop_12]  )  Dowr._arrcw_key 
type  ( DC  94_3  [  Loop_!  2  ’  )  Dowr._a  rrow_key 
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type  (DC94_4  iLcop_l  2  ]  )  Dowr._arrow_key 
type  (DC94_S  [Loop_12!  )  Dowr._arrow_key 
type  (D094_6  [  L.oop_l  2 1  )  Down_arrow_key 
type  (DC  9^_6  "  Locp_l  2  '  )  Dowr._arrow_key 
type (D094_  9 [ Loop_12 ' )  Down_arrow_key 
type  (D094_10  [Locp_12  I  )  Down_arrow_key 
hoire_i  ine  key 
returr._key 

menu_type (“r", "Pick  an  option:  ") 
return_key 

menu_type ("114", "Range  or  cell:  ") 
return_key 

type (DO  95 _ I [2  oop_12 ) )  Dowr_arrow_key 

type  (DO 95_2  [  1 oop_12 ]  )  Dcwr._arrow_key 
type  (DO 95_3  ;  loop_l 2 ] )  Down_arrow_key 
type  (D095_4  [ioop_12]  )  Dowr._arrow_key 
type(D095_5(loop_12! )  Down_a  r row_key 
type  (DC95_6  [loop_12  J  )  Down._arrow_key 
type (DC9S_7 [ ioop_12 ] )  Down_arrow_key 
type (D095_8 [ loop_12 i )  Down_arrow_key 
type (D095_9 [ loop_12) )  Down_arrow  key 
type(D095_10'l ocp_l 2 j  )  Dowr,_ar row_key 

loop —2  ~  -oop  — i  ± 

if  locp_12  <  count_12  goto  write_12_A 
after  12 : 


Start  writing  data  to  view  2 


horae_iine_key 

returr._key 

menu_type ("r", "rick  an  option:  ") 
return_key 

rrer.j_type  ("nl  ",  "Range  or  cell:  ") 
return_key 

type(AC35)  Down_arrow_key 
type(ACC5A)  Dowr._arrow_key 
Type(BC74)  Dowr._arrow_key 
type  (ACID  dow.n_arrcw_key 


Start  writing  data  to  view  3 


hcr.e_i  i  ne_key 
re torn  key 

~eno_t ype ( "r " , ”? : ck  an  option:  ") 
returr_key 

menu_t ype ( "p2 " , "Range  or  ceil:  ") 
return._key 
wri te_8 : 

Icop_8  =  1 
spot_8  =  2 

'*  Start  out_rec_8  printing 
if  hold_8  <>  NUN  goto  after  8 
wri te_8_A : 
spot_8  =  spot_8  -  1 
returr._key 

type  ( D C 0 9 _ 1 [ iocp_8 D  return_key 

type (D01 i_l I i oop_8 ])  return_key 

type (FCi 8_ i i 1 oop_8 i )  return_key 

type  ( D01 3_1  i  ioop_8 ])  return_key  (2) 

returr._key 

loop_3  -  ioop_8  *  1 

type  (D00  9_l [ i ocp_8 ; )  return  key 

type  (DC1 2_i  1  oop_  8  .  )  ret  or n_ key 

type  (FCI  8_1  'locp_8'  )  refor"_key 


r 


157 


type  (331 3 _ 1 ' lcop_8 ] )  return  key 
home_l i ne_xey 
ret urn_key 

r*errj_type  ("r",  "? i  ck  ar.  option:  " ) 
return_key 

menu_type  ( "p"-*--*-spot_8,  "Range  or  cell:  ") 
ret  urr._key 

if  loop_8  <  count_8  goto  write_8_A 
after_8 : 

spot_8  -  spot_8  1 

»*■*'***»«★**'******'*»*****************■**♦***'*'*'*********■»******* 

' *  Start  writing  data  to  view  4 

»**«************inrww****ir**»w**************«*w**w*******«**w* 

hcne_Iine_key 

returr._key 

menu_type ( "r ” , "Pick  an  option:  ") 
return_key 

renu_type ("afc5",  "Range  or  ceil:  ") 
return^key 
wnte_5 : 
loop_5  =  1 
spct_5  =  5 

' ’  Start  ott_rec  5  printing 

if  held  5  <>  NliN  goto  after  5 

write_5  A: 

spot_5  =  spot_5  -  1 

type  (""»»»KCC1  ;  i  cop_5 )  ret  um_key 

type  (KCC2_1301  |  iocp_5 1  --  "  /  "  * -1C  C 1 A  ^  1  ocp_5 )  returr._key 
type  ("•'"--1C22  [  loop_5 ;  )  return_key 
type AC Cl ; lccp_S ' )  return_key 
type  (  ""  "*-ACCl_2.nd  [  iocp_5  1  )  returr._key 
type  (0RC3__QTY  [lcop_5  •  )  return_key 
type  {LC34  [loop_5;  )  returr._key 
type ( " * AC12A ! ioop_5 ; )  return_key 
type  ( "  A  "--CCC3E  |  locp_S  ;  )  returr._key 
type (ICC  9 ! loop_5 ] )  return_key 
hone_l i ne_key 
ret  -  rn_key 

r".er.u_type  !"r”,  "Pick  an  option:  ") 
returr._key 

rer.__type  ( "  at "  -  -  spot_5 ,  "Range  or  cell:  ") 
ret  urr_key 

- w wp _ 5  —  ^ocp  o  'r  r 

if  1 ccp_r  <  court _5  goto  write_5_A 
a  f  t  e  r  _  5 : 

'  *  Szarl  writing  oata  tc  view  5 

'*t»I*t**t«t*t**t»«*ttF>****t«**«*«*(t*«t*tt**»****t»t**tt**» 

nore_ 1 : re_xey 
returr._xey 

mer'j_‘ype  ("r”,  "Pick  ar.  option:  " ) 
returr._key 

rrer.j_type  ( nan4",  "Range  cr  ceil:  ") 
return_key 
wri te_  9 : 
loop_9  =  1 
spot _  9  =  A 

**  Start  out_rec_9  printing 

if  hoid_9  <>  MIN  goto  after  9 

wri te_9_A: 

spct_9  =  spct_9  -  1 

type  (KCC2_K02C  |  loop_9',  )  returr._key 

type  (KC36  '  1  oop_9 '  )  returr._key 

t y pe { - v C2 4_ 9  ^ 1 ocp  9')  return  key 
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t,ype("“">*K025'l oop_9 ’  )  return_key 
type  ("*"  +  fKG22 [loop_9j )  return_key  (2) 
type  (“" "++K026  [loop_9  j  )  return__key  (2) 

if  (KC26  ;  loop_9]  =  "B8")  then  type  ( "  1 " )  eise  typeC’C")  return_key 
if  (KC26  [loop_9j  =  "BD")  then  typeC'l")  else  typeC’O")  return_key 
home_iine_key 
return_key 

menu__type  ("r",  "Pick  an  option:  ") 
return_key 

menu_type ("am"  +  +  spot_9,  "Range  or  cell:  ") 
return_key 
loop_9  =  loop_9  +  1 
if  loop  9  <  cour.t_9  goto  write_9_A 
after_9~: 

•  ************************************************************** 

'*  Start  writing  data  to  view  6 

I  ******ttw«w***w******Y**«»irw»»»***K**'*'*w****w»***»******»*»*« 

home_line_key 

return_key 

menu_type  ("  r"  ,  “Pick  an.  option:  ") 
return_key 

menu_t ype ( "a z5 " , "Range  or  ceil:  ") 
return_key 
write_€ : 
iocp_6  =  I 
spot_6  -  5 

' ’  Start  out  rec_6  printing 
if  hcla_6  <>  NUN  goto  after_6 
write_6_A: 
spot_6  =  spot_6  f  1 

type  (n'"Y->-KC01_6  .'ioop_6! )  return_key 
type (KCC2_6 [ loop_6] )  return_key 
type  A  Cl  2  A_  6  [  1  ocp_6  j  )  return_key 

type ("""»»KC12_6i loop_6 ; )  return_key 
type  ( K 0 0  6_ 6  ;  loop__6;  )  returr._key 
type  (KC 1 8_6  [ loop__6j  )  return__key 


type("'"**K024_6;i 

oop 

6  j 

return_key 

if  (KCC1  6 ;ioop  61 

= 

2>GA" 

)  then  type  Cl' 

)  else 

type 

II  O  II 

returr._key 

.f  (K0c:~6;ioop_6: 

= 

■BPR" 

1  then  typed") 

else 

typer 

C") 

return_key 

-f  (KCSi~6  [loop  6; 

= 

•101” 

)  then  typed") 

else 

type  (' 

C") 

return_key 

if  (K001~6[loop_6; 

= 

’301" 

)  t'ner  typeC'l") 

else 

type  (' 

0") 

returr._key 

if  (KCC:“6;ioop_6: 
tome  line  key 

= 

’501“ 

)  then  typeC'l") 

else 

type  (" 

£  t.  1 

ret  ”.rr._key 

return_key 

!tenu_type  C’r",  "Pick  an  option:  ") 
return_key 

menu_type ("azn**spot_6, "Range  or  cell:  ") 
return_key 
locp_6  =  ioop_€  •*  I 

if  ioop_6  <  count_€  goto  write_6_A 
after  6: 


'"close  the  open  spreadsheet 
select ion_i ine  (2, "C" ) 
mer.j_type  ("c",  "Clerk  option:  ") 
return_key 

goto  pull 

'if  line_count  <  1  goto  pull 
finish : 

close_fiie  ("in fo/ofiiel .txt") 
close  file  ("ir.fo/ofiie2.txt") 
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close_fiie("info/ofile3.txt"! 
cIcse_fiie("info/cfile5.txt") 
close_file("info/ofile6.txt") 
close_file("info/ofile8.txt" ) 
close_fiie("info/ofile9.txt") 
close_f ile ("info/ofilelO.txt") 
ciose_f iie ("info/ofileil.txt") 
close_f ile("info/ofilel2.txt”) 

add_ptas 

bacb_return_key  (2) 
joey 

wait_wbi le_busy  () 
endcorrjnar.d 


»**»W***«W******»****ir**W*****w***W******«*****lHr**'*«**»***** 

'*  Program  tc  add  the  PTAS  data  to  the  snap  spreadsheet 
'*  built  by  snap_l . 

'*«*W**»**»WW***ir»lr**»«**»»r**«***»*jr*w»r*««**«***********»***» 

include  "app_ids.h“ 
include  "errorcodes . h" 
include  "fieid_read. h" 
include  "filing. h" 
include  " spreadsheet . h" 
include  "windows. h" 
function  add_ptas 

var  of 1 , of 4 , NIIN, DC4 6D 

var  ACI1 , AC1 2_1 , ACC83_1 , AC21A_1 , AGi 4_1 , BC4  6A, A01 2A_2 . CCC3E, AC  1 2_2 
var  ACC 8B_2 , AC21 A_2 , All 2A_3 , AC 12_3 , AGC8B_3,  AC21 A_3 , AC14_3 , hold_4 
var  count,  count_4,  loop_4,  spot_4 , sum_spct ,  !me_cour.t 
var  trr.p,  The_current_window 
ope.n_f i le  ( "ir.fo/of ilel.txt",  "r") 
oper._f  i  le  ("ir.fo/ofile4.txt","r") 

count  =  C 
Start_reading: 

cf4  =  read_f i le ( "i nf c/of i ie4 . txt " ) 

D046D  =  subst r (of 4 , 1 , 9) 
r.exc_r.i  in : 

cfl  =  read_f ile  ("info/ofilel . txt ") 

SUN  =  subst r  (of  1 , 1 , 9) 
if  NUN  =  "OOCCOOOOC"  goto  jux.p 
if  NUN  <>  DC46D  goto  next_r.iir. 
count  =  count  +1 
'if  count  >  1  goto  jump 


'ttttt*t»yt**s**tt*ft*ttt*ts***t»*****t*t*4rt*«ttt*»t)l<[*«****lt*l>tt*** 


'*  START  PULLING  DATA  FROM  OUT-REC-4 

'*  HOLD  DATA  IN  PROGRAM  FROM  ALL  PULLS  UNTIL  THE  END. 


********************* 


*«***•**«★***★ 


out_  rec_4 : 

c  o  u  n  t  _  4  =  1 

if  DO  A  63  =  NUN  goto  pull_4 
if  D046D  <>  NUN  goto  next_r.iin 


next_l i ne_4 : 

of A  =  read_f i le  { ” in f o/of i Ie4 . txt " ) 
count_4  =  count_4  +  1 
D046D  =  substr (of 4 , 1 , 9) 
if  D046D  <>  NIIN  goto  write_it 
pul i_4 : 

A001  [cour.t_4  j  =  subst  r  (of  A,  12,  3) 
AC1 2_1  { ccur.t_4  ■  =  subst r  (of  4, 1 5,  8) 
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f 


A0088_l (count_4 1  =  subst r (of 4 , 23, 8 ) 
A021A_1  (count_4)  =  subst r  (of  4 , 31 , 7 ) 
A014_l [count_4]  =  subst r (of 4 , 38 , 8 ) 
804  6A [ count _4 ,  =  subst r (of 4 , 4 6, 5 ) 

A012A_2 ( count _4 ]  =  subst r (of 4 , 51 , 1 ) 

C003Elcount_4]  =  substr  (of4, 52, 1 ) 
A012_2 [count_41  =  subst r (of 4 , 53 , 8 ) 
A008B  2  [count_4  ]  ■=  subst r  (of  4 , 61 , 8 ) 
A021A~2  (count_4 1  =  substr  (of4 ,  €9,  7) 
AO 1 2A_3 ( count_4 ]  =  subst r (of 4 , 76, 1 ) 
A012_3 (count_4 )  =  substr (of4, 77, 8) 
A0088_3 ( count_4 J  »  substr (of 4, 85,  8) 
A021A_3 [count_4]  *  substr (of4, 93, 7) 
A014_3 [count_4]  =  subst r (of 4 , ICO , 8 ) 
hold_4  =  D046D 
goto  next_line_4 


write_it : 
open_SS : 

mer.u_type  ("e”,  "Main  menu  option:  “> 
return_key 

menu_type  (NIIN++"  ss,,  +  +  "  l","Name:  ) 
return_key  (1 ) 
wai t_whi le_busy ( ) 
tmp  =  CURRENT_WINDOWJ4UK_() 

The  current  window  =  WINDOW_INFO  (tmp) 
if  The  current  window  [WINDEXkA??_TY?E_.  = 

'wwww**»*trw*'*****'*'**'****’*'*''rr*'r*****',r*,r**** 

»»  Start  writing  data  to  view  7 

*  I**************************************** 


A??*VJ'.1N_  g 

*»*»»»*»**** 


home  1 ine_key 
return_key 

mer.u_type  ("r",  "Pick  an  option:  °) 
return_key 

menu_type  ("br3", "Range  or  celi:  ") 
return_key 
write_4 : 
lcop_4  =  1 
spot_4  =  3 

'*  start  cut_rec_4  printing 
if  holc_4  <?  NUN  goto  after_4 
wru te_4_A : 
spot_4  =  spot_4  »  1 
type”"'  "*+A0Cl  [loop_4i  )  returr._key 
type (A012_1 [loop_4] )  return_key 
type  (A0083_i [ loop_4 ! )  return_key 
type ( A02 1 A_1 [loop_4; )  return_key 

type ( AC 1 4 _ 1 [ loop_4 ; )  return_key 

type  (BO  4  €A  '  1  oop_4  ]  )  return_key 
type  ("A  ;  ")  r->turn_key 

type ("*"*+ AO 1 2 A_2 (loop_4 ] )  return_key 
type  ("A,,**C003E  [loop_4)  )  returr._key 
type  (AC12_2 [loop_4j )  return_key 
type (A0083_2 [ loop_4 ] )  return_key 
type (AC21A_2 [loop_4] )  return_key 
type ("A I ")  return_key 
type (" ' "++A012A_3 [ loop_4 ] )  returr.Jcey 
type (A012_3 [ loop_4  j )  return_key 
type (AO  C8B_3 [ ioop_4 i )  return_key 
type (A021A_3 [loop_4 ] )  return_key 
type  (A014_3 (loop_4 ] )  return_key 
home_line_key 
retur.n_key 

menu  t ype  ( "r " ,  '’Pick  an  option:  "f 
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return_key 

menu_type  ( "br " » » spot_4 , "Range  or 
returr,_key 
locp_4  =  ioop_4  »  1 

if  loop_4  <  count_4  goto  write_4_A 
sum_spot  =  spot_4  -  1 
type ("TOTAL")  return_key 
type ( "+sum (bs3 . . bs"  +  +  sum  _spot++" ) " ) 
type  ("tsuu  (bt3 .  .  bt"++sum_spot++" )  ") 
type ("+sum (bu3 . . bu"++sum_spot++") ") 
type ("  +  sum(bv3 . .bv"+*sum_spot++") ” ) 
return_key 

type  (”"!")  returr._key 
return_key  (2) 

type (”  +  sum (ca3 . . ca"  +  +  sum_spot  +  +  " ) " ) 
type  ( "  +  sum  (cb3  .  .  cb"+  +  sum_spot-i-’-  " )  " ) 
type ( "  +  sum (cc3 . . cc"++sum_spot++") " ) 
type  ("*!")  return_key 
returr._key 

type  ("nsum  (of  3  .  .  cf  "++sum_spot <■  +  " )  " ) 
type  ( "  +  sum  (cg3  .  .  cg"  +  * sum_spot 11 )  " ) 
type  ("’•sum  (ch3  .  .  efc"**sur  spot**")  *') 
type  ( "’■  sum  ( ci  3  .  .  ci "»»sur.  spot *•* " )  "  ) 
after_< : 

'"close  the  open  spreadsheet 
select i or._l ine  (2,  "C") 
menu_t ype  ( "c” , "Clerx  option:  ") 
return_key 

goto  r.ext_niin 
jump: 

close_f ile ("info/ofilel.txt") 
cl ose_f i le  ("ir.fo/ofile4.txt") 
endfunction 


cell:  ") 


return_key 

return_key 

return_key 

return_key 


return_key 

return_key 

return_key 


return_key 

return_key 

return_key 

return_key 


**w«**wwww**w**'w*»'ir**w********i**ww*****'r»r*ir'*w****'**’'***w»ir»*» 

*  Program.  to  build  the  NSN  Snapshot  Document  from,  the 

*  from,  the  NSN  Snapshot  spreadsheet  built  by  snap_l. 

WWW**»«W»»*lr*»*»***»»»*»******W«**»'*W»**'*»r*«*lr***#»'**W*W'**W* 


' include 

"app_ias ,h" 

' include 

"errorcoaes . h" 

' include 

"f ieid_read.h" 

' include 

"filing. h" 

' include 

"spreadsheet . h" 

' include 

"windows . h" 

function 

joey 

var  o 

f :  ,  n*i.  s,  n::n_2,  dc4  6d_: 

va r  t 

np ,  7he_current_windcw 

DC46D  2,uCA 6D  3,EC89 
ccunt_ptas,  check 


oper._  file  ("info/ofilel.txt","r") 


count_ptas  =  0 
Start_reading: 

ofl  -  read_fiie ("info/cfiiel .txt") 

NIIN  =  substr (of 1 , 1 , 9) 

D04  6D_1  =  substr (ofl, 1, 2) 

D046D_2  =  substr (of 1 , 3, 3) 

D046D_3  «  subst r (cf 1 , 6, 4 ) 

E089  =  substr  (ofl, 96, 1) 

NIIN_2  =  DO  4  6D_1 *  +  "-"  +  +  D04  6D_2  +  +  "-"  +  +  D04  6D_3 
cour,t_ptas  «  count_ptas  +  1 
if  D046D_1  =  "CCC00C000"  then  goto  bottom 
*  if  count_ptas  >  1  goto  bottom. 
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or  error  goto  build 
check  =  f ind_dcc (NIIN_2, -1 ) 
error  on  error 
goto  start_readirc 

*  ************■***•****»******«***«****★*'***********'***»**'****** 

#*  Start  building  the  DOC. 

»***»**«»«****★*»»*******»*******■»*****«**********★****«***** 

build: 

menu_type ("e", "Main  menu  option:  ”) 
return_key 

menu_type (NIIN_2, "Name:  ") 

’  menu_type  (D046D_l  +  +  "-"m+DC46D_2  +  ~"-"+  +  D0';6D_3,  "Name:  ") 

return_key 
wait_while_busy  0 
tmp  »  CURR£NT_WINDOW_NUM_ 0 
The_current_window  =  WINDOW_INFO  (tmp) 

if  The_current_window  [WINDEX#APP_TVPE_]  <>  APP#MAIN_  goto  start_reading 
return_key  menu_type  ( "the si s" ,  "Drawer :  ”) 
returr._key 

menu_type ("data", "Folder:  ") 
return_key (2) 

menu_type ( " t " , "Pick  a  document  type:  ") 
return_key 

menu  type ( "model  snapshot" , "Style  auide/mcdei  document:  ") 
return  key 
execute_key 
wait_whiie_busy () 

*  Now  inside  uocument  writing  to  Document, 
type (N1IN_2) 
ref  urr._key 

select ion_ii.ne  (5,  "E") 
menu_type  ("i", "Edits  option:  ") 
return_key 

menu_type  ("i", "Inset  type  option:  ") 
returr._key 

menu_type (NI IN++ "  ss  i ", "Document  name:  ") 
return_key 

menu_type ("view  l",”View  name:  ") 
returr._key  (3) 
select  icr._l  ir.e  ( 5 ,  "E"  ) 
menu_type  ( "i ", "Edits  option:  ") 
return_key 

mer.u_type  (" i ",  "Inset  type  option:  ") 
returr._key 

menu_type (NIIN++"  ss  1", "Document  name:  ") 
returr._key 

menu_f ype ("view  2", "View  name:  ") 
return_key (3) 
se iect i on_l in.e  (5,  "E") 
nenu_fype ("i", "Edits  option:  ") 
return_key 

menu_type ("i", "Inset  type  option:  ") 
return_key 

menu_type (NIIN++"  ss  1", "Document  name:  ") 
return_key 

menu_type ( " view  3", "View  name:  ") 

returr._key  ( 3 ) 

select i on_i ine (5 , "E" ) 

menu_type ("i", "Edits  option:  ”) 

return_key 

menu_type ( "i ", "Inset  type  option:  ") 
return_key 

menu_type  ( N I IN-* "  ss  1", "Document  name:  ") 
return_key 


163 


menu_type  ("view  7",  "View  name:  ") 
return_key  (3) 
seiection_line (5, "E"l 
menu_type  ("i", “Edits  option:  ") 
return_key 

menu_type ("i", "Inset  type  option:  ") 
return_key 

menu_type  (NIIN++"  ss  1", "Document  name:  ") 
return_key 

menu_type ("view  4", "View  name:  ”) 
return_key (3) 
selectior._line  (5,  "E") 
menu_type ( " i " , "Edi t s  option:  ") 
return_key 

menu_type ("i", "Inset  type  option:  ") 
return_key 

menu__type  (NIIN+  +  "  ss  1",  "Document  name:  ") 
return_key 

menu  type ( "view  5", "View  name:  “ ) 
return_key (3) 
seiection_iine  (S, "E") 
men'u_type  ( "i ",  "Edi t s  option:  ") 
return_key 

menu  type ( "i ", "Inset  type  option:  ") 
returr._key 

menv_type  (NIIN*  +  "  ss  1",  "Document  name:  ") 
returr._key 

menu_type  ( "view  6", "View  name:  ") 

returr._key  (2) 

select ion_i me ( 8 , "C" ) 

menu_type  (“ro", "Controls  option:  ") 

return_key 

select  ior._I  ine  (8 ,  "C"  ) 

menu_type ( "no" , "Control s  option:  “) 

returr._key 

selectior._iir.e  (2,  "C") 
mer.u_type  ( “c" ,  "Clerk  option:  ") 
returr._key 
goto  start_readi .no 
bottom : 

clcse_file("ir.  fo/ofilei.txt") 
endfur.otion 

'*-*-*»*ir*#-*-ir»'**»w»**’ir'**»'»***jr»***«r»w»*****»»**********w*w»*«ir********-#-******w 

'*  Purges  the  old  data  from  the  spreaosheet. 

*  »»',»***ir»«*w**»**ir***ir»**»****»*ir*jr*****-**»'*'**'**,#***»ir#W*r«-****,»irjr»’*j*Tr»»jr**» 

function  purge 

select  ior._i  ine  (3,  "M") 

men.'u_type  ("m",  "Pick  an  option:  ") 

return_key 

menu_type ("bl, gl , b3, b5 . .b8, d5 . .d8, gS . . g9, i5 . . i9, blO . ,bll , dlO . .dll, al 4 . "Mater i 
a  1  :  " ) 

renu_type ("cl DC, gl 4 . . ilOO, nl . . n4 , p 2. .zIQC,ab5..akI0C,am4. .avl00,az5. .bk",  "Materi 
al:  ") 

menu_type  ("100,br3. .cilOO", "Material:  ") 
return_key 
wai t_whi le_busy () 
home_l ine_key 
type ("b") 
return_key 
endfunction 
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APPENDIX  H 


INVENTORY  MANAGEMENT  MACROS 


command  ra  -  Wain  menu  for  Inventory  management. 
Written  by  LT  George  Marcntic 
Dec  1988 


Command  ra 


var  atrs 

'  Array 

of  Display  strings. 

var  result 

*  return 

of  string  from  run  menu 

again: 

str*  - 

(N) 

NSN  Snapshot". 

" 

(R) 

Requisition  Processing" 

" 

IB) 

NSN  Notebook", 

" 

(X) 

Exit  Program". 

“Pick  an  option:  " 

result  -  rur.  menu  ( "Inventory  Management ",  it  r  s ) 
r.  *ult  -  upcasef result) 
if  result  -  HN"  n 
else  if  result  -  “ft"  rqn_process 
else  if  result  -  "3"  to 
else  if  result  •  "X"  goto  finish 
'  goto  do_agam 
finish: 
end command 


command  n  -  NSN  snapshot  extract  macro 
Written  by  LT  George  Marcntic 
Dec  1988 


command  r. 

var  screen^!  '  Array  of  display  strings 
var  result  '  Inputed  NSN 
var  N : : n .  home_dir . not_ found 

do_agair. : 

screer._l  -  “  Enter  the  NUN  you  need  the  snapshot  for", 
"  Format  Cl -123 -1234", 

"  Requested  NX  IN:  ” 

result  -  rur._menu  ( "NSN  Snapshot",  screer._l ) 
result  -  upcase ( result  1 
if  result  -  "  "  gctc  de_agam 
NUN  -  result 

Start  : 

status_m,essage  ("Pulling  your  reguested  Snapshot") 
inter  r  upt_key 
type ( "re” > 

Execute_key 
Escapekey  (5) 

Back_return_key  (2) 

menu_type  (  "e"  ,  "Mam  menu  option;  ") 
return_key 

rcenu_type ( N : : N , "Name ;  " ) 
return_key 
wiit_shil#jju»y() 
on  error  goto  bottom 
status_message  ("Snapshot  is  ready.") 
goto  done 
toot  tom : 

atatus_message ( "NSN  not  found.") 
done ; 

er.dcommand 


Command  to  NSN  Notebook  input  and  creation  macro 
Written  by  LT  George  Marantic 
Dec  1988 


command  b 
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var  strs,  promptids_2,  values_2,  inxt_2.  start_here_2 , l ,  resu 
var  »trs  1,  date  1.  NUN.  check,  date,  date  2 


var  strs_2.  str*_3,  prompt id»_3 «  values_3, 
vir  strs_4,  promptids_4,  values_4,  imt_4, 
var  strs__5.  promptids_5,  values_5,  init_5, 
var  *trs_6,  prompt xds_6 .  values_6,  mxt_6, 
v»r  strs_7,  promptids_7,  value*_7,  mit_7, 
var  strs_8,  proraptids_8.  values_8.  init_8. 


init_3.  start_here_3 

start_here_4 

start_here_S,  data_S 

start_here_6 

*tart_here_7 

•tart  here  8 


do_again .- 

•  t  r  s  -  "  " . 

"Please  enter  the  NIIN  for  the  STOCK  NUMBER  NOTEBOOK  ”, 
"that  you  want  add  to  or  read  information  about.  ", 


Format  01-123-1234”, 


"  Requested  NUN:  " 

result  -  run_menu ("STOCK  NUMBER  NOTEBOOK” . atri) 
result  -  upcase (result) 
if  result  -  "  "  goto  do_again 
NUN  -  result 
start  : 

at  r s_l  - 

"Please  select  the  function  you  need.  ", 


(V) 
(A) 
(E) 
(R) 
( 7 ) 
<P> 
(C) 
<N> 
(X) 


View  the  Stock  Number  Notebook", 
Alternate  NIIN  Information  ", 

Contract  Expedite  Information  ", 
Contract  Reconsignment  Information  ", 
Contract  Termination  Information  ", 
Points  of  Contact  for  this  NUN  ", 
Pending  Change  Information  ”, 

Mi  sc  Notes  (  Remarks  ", 

Exit  this  Program  ", 


"Pick  an  option:  " 

problem : 

result  -  rur._raenu  ("NOTEBOOK  Input 


resul 

t  < 

-  upcase (resu 

It) 

if  resu 

It  -  "A 

goto 

ab 

else 

1  f 

result 

"V" 

o 

o 

Kf 

vb 

else 

:  f 

result 

"E  " 

goto 

eb 

else 

if 

result 

”R" 

gotc 

rb 

else 

if 

result 

"T" 

goto 

tb 

else 

if 

result 

"P" 

goto 

pb 

else 

if 

result 

"C" 

goto 

cfc 

el  se 

if 

result 

"N" 

goto 

r.fc 

else 

:  f 

result 

”X” 

goto 

tir. 

Selection", strs_l) 


(result 

<> 

"A") 

or 

(result 

<>  "E") 

or  (result 

<>  "R”)  or 

(result 

<> 

"  T  "  ) 

or 

(result 

<>  "P") 

or  (result 

<>  "C")  or 

(result 

<> 

"N"  ) 

or 

<  result 

<>  "X") 

( 

str s_l  ; 
goto  pr 

cbl 

-  "NC 

em 

t  a 

valid  se 

lectxor. 

Please  try 

again .  " 

ab : 


s  2  - 


"  Alternate  NIIN  Information  ", 


Please  input  alternate  NUN  information  for  "*  +  NUN, 


"Alt  #1:  ", 

"Alt  42:  ", 

"Alt  43:  ", 

"Alt  #4:  ", 

"Alt  45:  ", 

"Alt  46:  ", 

"Hit  return  for  blank  fields" 
prompt ids_2  -  5.6,7,8,9.10 
#tart_here_2  -  0 
v»iues_2  -  "" 
init_2  -  true 
probiere_2 : 

valu«s_2  -  run_menu ( "Alternate  NIIN 

Information", strs_2, val ues_2 . lm t_2 , prompt  id s_2,  start _h*re  2) 
IF  I S_NU  LL  (values_2)  BEGIN 

STAT'JS_MESSAGE  ( " \ "NotebookN "  program  exited.") 

EXIT 
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Notebook" ,  "a" ) 


END 

ip.it._2  -  false 
oper._f  lie  <NI  IN**" 
date  -  "da te ’* 
date -  SHELLCOKKAND (date) 

’ date_2  -  TRIM  <date_l) 

write  file (NI IN**"_Notebook" , "Alternate  NUN  Information") 

wntefileiNlIN**"  Not  ebook".  date_l 1 0 ] ) 

writ e_ file  INI IN*  +  "_Notebook". values_2(0i ) 

write_file (NI IN**"_Notebook", values_2 [1] ) 

wnte_file  (NIIN**"_Notebook".  values_2  [  2)  ) 

wnte_file  (NllN*  +  "_Notebook"  .value  *_2[3]) 

write_file (NlIN**"_Notebook", values_2 (4) ) 

vrite_file(NHN**"_Not  ebook". value  s_2(Sl) 

writ e_ file (NI IN* *"_Not ebook". "  ") 

close  file (NIIN+*"_Nocebook") 

goto  start 

eb : 

strs_3  - 

"  Contract  Expedite  Information  ", 

"  Please  input  Contract  Expedite  Information  for  "**N 

"Contract  Number  :  ", 

"Message/ Letter :  ", 

"Reply  Date  :  ", 

"CTY  :  ", 

"CLIN  :  ", 

"Received  Delivery:  ", 

"Use  return  key  for  blank  fields" 
pronpt.ds_3  -  5.  6.  7.  8  .  9.  1C 
st  a rt_here_3  -  C 
values_3  -  “ " 
ir. it_3  -  true 
pr cb,er_3 : 

va-ues_3  -  rur_xer.i  ( "Contract  Expedite 

I  r.  format  ior." .  strs_3.  values_3.  i  n  i  t  _  3 ,  prompt  id  s_  3 ,  start_here_3) 

IF  I  5_N'J  LL  ( va  lues_3  )  BEGIN 

S TAT US_MES SAGE  (” \ " Not ebook \ "  program  exited.") 

EXIT 

END 

i r. 1 1 _ 3  -  false 

cper._file  (NI  IN**  "_Not  ebook",  "a") 
cate  -  "date” 

oa*.e_;  -  SHE LL_ COMMAND  (date) 

vritefile (NI lN-*"_Notebook", "Contract  Expedite  Information") 
wntefile  (NUN**  "_Ncte  book",  da  tel  :  S;  } 

write_file ( N 1 1 N •* "_No t  eboo  k" , "Contract  Number  :  "**values_3 ' C } ) 
wnte_file  ( N I lN**"_Noteoook" .  "Message/ Letter  :  "*  -  va  lues_3  I I 
wr ite_f ii e (NI IN** "^Notebook" , "Reply  Date  "**values_3  [2 i ) 
write_fiie (NI IN* *"_Notebook", "OTY  :  "**values_3 ; 3; ) 
write  f i le (NI IN* ♦ "^Notebook” , "CLIN  "**values_3 ; 4 ’ ) 
*nte_f-le(NIIN**"_Notebo  ok”, "Received  Delivery:  "♦♦values_3[S.’  ) 
writefile (NI IN**"_Notebook" , "  ”) 
close_file(NIIN-*"  Note book") 
goto  start 


er rc:_report  : 

•  tat js_message  ("This  is  not  a  valid  NIIN 
goto  do_agam 

Vb  : 

int er ruptkey 

menu_type  i  "m."  interrupt  option:  ") 

returr._key 

eacape_key ( 1 \ 

back_returr._key  (2  ) 

mer.u_type  (  "u" .  "Main  menu  option:  "j 
return_key 

menutype ("a", "Utilities  option:  ") 
returnkey 

raenu_type ( "a" . "Asci i  Editor  option;  ") 
return_key 

mer.u_type  ( NI  IN* * "_Not ebook” ,  "Name  :  " ) 
returnkey 
gotc  finish 
rb  : 
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"  Contract  Recon* ignment  Information 
"  Please  input  Contract  Reccns ignment 


ion  for  " *  - K : : N 


"Contract  Number  ", 

"Message /Letter :  ", 

"From  Destination  :  ", 

"To  Document  Number  :  ", 

"Est  Devlivery  Date  :  ", 

"QTY  :  ", 

*Un  return  key  for  blank  fields" 
promptids_4  -  5,6,7,8,9,10 
•tart_here_4  -  0 
values__4  -  "" 
init_4  -  true 
problera_4 : 

vaiues_4  -  run  menu ("Contract  Reconsignment 

Information" , strs_4 . value s_4 . init_4 , prompt  id s_4 , start _he re_4 ) 

IF  IS_NULL  (values_4 )  BEGIN 

STATUS_ME5SAGE  ("\"Notebook\"  program  exited.") 

EXIT 

END 

init_4  -  false 

oper,_file  (NIIN**"_Notebook".  "a") 
date  -  "date" 

date_i  -  SHELL^COMKAND (date) 

wnte_f i ie (NI IN* *"_Not ebook", "Contract  Expedite  Information" ) 
writ e_ file (NI IN**"_Notebook" . date_l [0] ) 

write_f lie (NI IN+*"_Notebook" . "Contract  Number  "+*va lue s_4 [ C ; ) 
wnte_file<NIIN**"_Not  ebook".  "Message  / Lette r  :  " ♦  ♦  va  1  u e s __4  [  1  ■  l 
wnte_file  (NI IN**"_Notebook" ,  "From  Destination  "**  values_4  [  2  ',  ) 
wr l t e_f i le (NI IN* ♦ "_Not ebook" . "Tc  Document  Number  :  "♦♦values  4133) 
write_f lie < NI IN** ”_Not ebook" . "Est  Delivery  Date  "♦♦values_4 [ 4 } ) 
writ e_ file (NIIN**"_Notebook". "Qty:  "**values_4 i 5 i ) 
write_file(N:iN**"_Notebcok". "  ") 
close_file(Nl IN*  *"_Not ebook" ) 
goto  start 

tb: 


"  Contract  Terminations  Information  ", 

Please  Input  Contract  Termination  Information  for  "**N 

"Contract  Number  :  ", 

"Termination  Date:  ", 

"Terminated  (Y  cr  N) :  ", 

"Original  Quantity  Due  :  ", 

"Terminated  Quantity  :  ", 

"Balance  Due  :  ", 

"Use  return  key  for  blank  fields" 
prom.ptids_5  -  5,6,7,8,9,10 
start_here_5  -  C 
valuesS  -  "" 
init_S  -  true 
prcblem_  5 : 

values_S  -  r  jr.^menu  <  "Cont  r act  Termination 

Information" , strs_5,vaiues_S, init__S, prompt i ds_ 5 ,  start_here  5) 

IF  I S _ N U L L  ( va I ues_  5 )  BEGIN 

STATUSMESSAGE  (" \ " Not  ebook \ ”  program  exited.") 

EXIT 

END 

imt_5  -  false 

oper._f  lie  (NI  IN**"_Notebook"  .  "a") 
date  -  "date" 

date_l  -  SHE LL_ COMMAND (date) 

wnte_file(NIIN**"_Not ebook "."Contract  Termination  Informat  ion" ) 
write_file(NIIN**"_Notebook",date  1 [01 ) 

wnte_  fi  le  (NI  IN**"_Notebook",  "contract  Number  :  "♦+values_S [ 0 ] ) 
write_file(NI IN* ♦ "_Not ebook " , "Termination  Date:  "♦♦values_5[l]> 
v* iues_5 ( 2 ]  -  u pease (v»iusi_S [2 | ) 

if  values_5[2)  -  "Y"  data_5  -  "Contract  has  been  terminated." 
else  data_5  -  "Contract  has  not  ye*,  beer,  terminated." 
writ  e_  file  (NUN**  "Notebook".  data_5) 

write  f ile (NI I N* * "_Not ebook ” . "Original  Quantity  Due  :  "* ♦ va 1 ues_5 ! 3 3 
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»nte_f  tie  <NI  lN-»  +  "_Notebook” .  "Terminated  Quantity  :  "  ♦  ♦  vaiues_  5  [  4  ;  ) 
vnte_fiie  (NIlN+*"_Notebcok",  ’'Balance  Due  :  "  *  ♦  vai  ues_  5  I  5  J  ) 
wnte_file(N:iN»*”_Notebcok","  "  l 
close_f:le(Ni:N**"_Netebook“l 
goto  start 


pb: 

*tr»_6  -  " " , 

"  Points  of  Contact", 

“  Please  Input  Points  of  contact  for:"-»  +  NIIN  , 

"Last  Name  :  ", 

"First  Name:  ", 

"Company  /  Command:  ”, 

"Code  /  Division  :  ", 

"Commerical  phone  number  :  ", 

"Autovon  phone  number  :  ”, 

"Use  return  key  for  blank  fields", 

"Use  the  M i sc  Notes  form  for  mailing  addresses" 
promptids_6  -  $,6,7,8,9.10 
start_here_6  -  0 
values_6  »  *" 
imt  6  -  true 

problem^ 6  : 

values_6  -  rur*._mer.m "Point s  of  Contact 

Information". strs_6, values_6, i n 1 1  _  6 . prompt  id s_6  ,  start_here_6) 

IF  I S_NULL  <values_6)  BEGIN 

STATUS  MESSAGE  ( ~\"Notebook\"  program  exited.") 

EXIT 

END 

ir.it  fc  -  false 

oper._f  lie  (N I :  N  *  *  "_Not ebook" ,  "a"  i 
date  -  "date" 

date_l  -  SHE LL_ COMMA NT <  date ) 

vrite_f:le (NT  IN*  *  "^Notebook". "Points  of  Contacts") 
vr ite_f 1 1 e  <  NI I N** "^Notebook” , date_l [ C ; ) 

vrite_f lie < K I IN**"^Notebook". "Name  :  "♦*vaiues_6 1 0 ] ,  "♦♦values  6 
vrite_f lie (NI IN**"_Notebook",  "Company  :  "♦♦values  6(2]) 
vrite_file<N;iN»-"_Noteb0ok“  ."Code  /  Division  r  " ♦ ♦va lue s_6  [  3 ; ) 
vnte_ f -  le  ( s:  :n*  •  "^Notebook" .  "Comm  :  "♦♦vaiues_6  [  4  ) ) 
vrite_f lie (N::Nf*"_Notebook". "Autovon  :  "♦♦values  6;  5]) 
write_filetN::w^"_Notebock". "  ") 
clcse_filefNI !N- - "^Notebook" ) 
goto  start 


cb  : 

st r s_ 7  - 

”  Pending  Change  Information  ", 

Please  input  pending  charge  information  for  "♦♦SUN. 

"line  41:  ". 

"line  42:  ", 

"line  43:  ", 

"line  44:  ", 

"line  4b: 

"line  46 :  ", 

"Hit  return  for  blank  fields" 
promptids_7  -  5.6,7, 8, 9, 1C 
start_here_7  -  C 
values_7  -  "" 
l n : t _ 7  -  true 

problem_7 ; 

values_7  -  rur._menu  <  "Pend i ng  Change 

Information", st  r  s_7 , value s_7, imt _7 . prompt  ids  7, start _here_7) 

IF  IS_NULL  (values  7)  BEGIN 

STATUS_MESSAGE  (" \ "Not  ebook \ "  program  exited.") 

EXIT 

END 

in it_ 7  -  false 

oper._file(NIlN**"_Notebook","a"> 
date  -  "date" 

da  t  e_  I  -  S  H  E  L  L_ COMMA N D (date) 

'date  2  -  TRIM,  {date  It 
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wnte_f  i  ie  <n:  in*-"  Notebook" .  "Pending  Change  Informat  ion" ) 

writ e_ file (Nl I N-- "Notebook” , date^l 101 ) 

write_nie  lNHN**"_Notebook",  values_7  10]  ) 

vnte_fiie(NII  N  **"_N  otebock", value  s_  7(1}) 

writ e_ 'lie  INI  IN- *"_Not ebook ",  value s_ 7 ;2] ) 

writ  e_file(NUN**"_Note  book  ”, value  a_  7(3}) 

write_file(NllN*+"_Notebook",  values_7  (4]  ) 

writ e_ file (WI IN**  "_Not ebook", values_7 (5} ) 

vrite_file(Ni:N**"_Notebook"."  ") 

close_file(NHN**"_Not  ebook") 

goto  atart 

nb : 

itts  I  - 

"  Miac  Notea  4  Remarks  ", 

"  please  input  Kisc  Notes  4  Remarks  for  "♦♦NUN, 

"line  #3 :  ", 

"line  #2:  ", 

"line  #3:  ", 

"line  #4 :  ", 

"line  #5:  ", 

"line  *6:  ", 

"Hit  return  for  blank  fields" 
prompt i ds_ 8  -  5,6,7,8.9.10 
start _here_7  -  0 
values_8  -  " " 

prod ert_8  : 

valuesB  -  rur._reenu  t  "Mi  ic  Notes  4  Rerr.arKs". 
jtrs_8.  values  B.  :mt_8.  pro7cptids_8,  sta rt_he r e_ 8  ) 

IF  :S_NJ11  (valuesB)  BEGIN 

S7A?»S_MESSA3E  ("  \  "Not  ebook  \  "  program  exited.") 

EXIT 

ENG 

init_6  -  false 

open_'iIe(NIIN**',_Nctebcok",''a") 
date  -  "date" 

date  ',  -  SH£LL_COMMAND  (  date  ) 

’  date__2  -  trim  (date_l) 

wnte^fiie  (Ni:N**"_Notebook".  "Miac  Notes  4  Remarks") 

wnte_file(NIIN-  *"_Not ebook" .  date_  1  ;  C  ]  ) 

write__fiie(N:iN**"_Notebook".values_8  !  0  ]  ) 

vrlte_^lle^N:IN*■»"_Notebook,, ,  value  s_8  ;  1 )  ) 

writ  e_  filer  NI  IN*  -"_Not  ebcok  " ,  value  s_  8  [2 ;  ) 

writ e_ file  INI  IN- *"_Not ebook" , vaiues_8  ;  3; * 

write_file'NIIN**"_N otebock", value s_8;4]) 

writ  e__  file  r  N 1 1 N  -  *  "_No  t  ebook  " ,  values_t :  5  ; ) 

write^f ile <NI IN--"_Netebock" . "  ") 

clcsefile  f  N I  IN-*”_Nctebock") 

goto  start 


er.d  command 
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